/usr/share/perl5/File/IconTheme.pm is in libfile-basedir-perl 0.07-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | package File::IconTheme;
use strict;
use warnings FATAL => 'all';
use File::BaseDir qw(data_dirs);
require File::Spec;
use parent qw(Exporter);
our $VERSION = '0.07';
our @EXPORT_OK = qw(xdg_icon_theme_search_dirs);
sub xdg_icon_theme_search_dirs {
return grep {-d $_ && -r $_}
File::Spec->catfile($ENV{HOME}, '.icons'),
data_dirs('icons'),
'/usr/share/pixmaps';
}
1;
__END__
=head1 NAME
File::IconTheme - find icon directories
=head1 VERSION
This document describes File::IconTheme.
=head1 SYNOPSIS
use File::IconTheme qw(xdg_icon_theme_search_dirs);
print join "\n", xdg_icon_theme_search_dirs;
=head1 DESCRIPTION
This module can be used to find directories as specified
by the Freedesktop.org Icon Theme Specification. Currently only a tiny
(but most useful) part of the specification is implemented.
In case you want to B<store> an icon theme, use the directory returned by:
use File::BaseDir qw(data_dirs);
print scalar data_dirs('icons');
=head1 INTERFACE
=over
=item C<xdg_icon_theme_search_dirs>
Returns a list of the base directories of icon themes.
=back
=head1 EXPORTS
None by default, but the method can be exported on demand.
=head1 CONFIGURATION AND ENVIRONMENT
C<$XDG_DATA_HOME>, C<$XDG_DATA_DIRS>
=head1 SEE ALSO
L<http://standards.freedesktop.org/icon-theme-spec/>
|