File Coverage

blib/lib/File/IconTheme.pm
Criterion Covered Total %
statement 17 17 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 26 26 100.0


line stmt bran cond sub pod time code
1             package File::IconTheme;
2              
3 1     1   479 use strict;
  1         2  
  1         46  
4 1     1   7 use warnings;
  1         2  
  1         46  
5 1     1   6 use File::BaseDir qw(data_dirs);
  1         2  
  1         71  
6 1     1   6 use File::Spec;
  1         2  
  1         35  
7 1     1   6 use Exporter 5.57 qw( import );
  1         14  
  1         130  
8              
9             # ABSTRACT: Find icon directories
10             our $VERSION = '0.09'; # VERSION
11              
12             our @EXPORT_OK = qw(xdg_icon_theme_search_dirs);
13              
14             sub xdg_icon_theme_search_dirs {
15              
16 1 100   1 1 2399 return grep {-d $_ && -r $_}
  5         178  
17             File::Spec->catfile(File::BaseDir->_home, '.icons'),
18             data_dirs('icons'),
19             '/usr/share/pixmaps';
20             }
21              
22             1;
23              
24             __END__