<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package File::IconTheme;

use strict;
use warnings;
use File::BaseDir qw(data_dirs);
use File::Spec;
use Exporter 5.57 qw( import );

# ABSTRACT: Find icon directories
our $VERSION = '0.09'; # VERSION

our @EXPORT_OK = qw(xdg_icon_theme_search_dirs);

sub xdg_icon_theme_search_dirs {

    return grep {-d $_ &amp;&amp; -r $_}
        File::Spec-&gt;catfile(File::BaseDir-&gt;_home, '.icons'),
        data_dirs('icons'),
        '/usr/share/pixmaps';
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

File::IconTheme - Find icon directories

=head1 VERSION

version 0.09

=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&lt;store&gt; an icon theme, use the directory returned by:

 use File::BaseDir qw(data_dirs);
 print scalar data_dirs('icons');

=head1 FUNCTIONS

Can be exported on request.

=head2 xdg_icon_theme_search_dirs

 my @dirs = xdg_icon_theme_search_dir;

Returns a list of the base directories of icon themes.

=head1 CONFIGURATION AND ENVIRONMENT

C&lt;$XDG_DATA_HOME&gt;, C&lt;$XDG_DATA_DIRS&gt;

=head1 SEE ALSO

L&lt;http://standards.freedesktop.org/icon-theme-spec/&gt;

=head1 AUTHORS

=over 4

=item *

Jaap Karssenberg || Pardus [Larus] &lt;pardus@cpan.org&gt;

=item *

Graham Ollis &lt;plicease@cpan.org&gt;

=back

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2003-2021 by Jaap Karssenberg || Pardus [Larus] &lt;pardus@cpan.org&gt;.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut
</pre></body></html>