Server : Apache/2.4.41 (Ubuntu) System : Linux absol.cf 5.4.0-198-generic #218-Ubuntu SMP Fri Sep 27 20:18:53 UTC 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.33 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, Directory :  /usr/share/perl5/File/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

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.08';
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/>