line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package File::IconTheme; |
2
|
1
|
|
|
1
|
|
99286
|
use strict; |
|
1
|
|
|
|
|
18
|
|
|
1
|
|
|
|
|
41
|
|
3
|
1
|
|
|
1
|
|
8
|
use warnings FATAL => 'all'; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
56
|
|
4
|
1
|
|
|
1
|
|
499
|
use File::BaseDir qw(data_dirs); |
|
1
|
|
|
|
|
4
|
|
|
1
|
|
|
|
|
80
|
|
5
|
|
|
|
|
|
|
require File::Spec; |
6
|
1
|
|
|
1
|
|
625
|
use parent qw(Exporter); |
|
1
|
|
|
|
|
400
|
|
|
1
|
|
|
|
|
7
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
our $VERSION = '0.08'; |
9
|
|
|
|
|
|
|
our @EXPORT_OK = qw(xdg_icon_theme_search_dirs); |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
sub xdg_icon_theme_search_dirs { |
12
|
5
|
100
|
|
|
|
234
|
return grep {-d $_ && -r $_} |
13
|
1
|
|
|
1
|
1
|
3169
|
File::Spec->catfile($ENV{HOME}, '.icons'), |
14
|
|
|
|
|
|
|
data_dirs('icons'), |
15
|
|
|
|
|
|
|
'/usr/share/pixmaps'; |
16
|
|
|
|
|
|
|
} |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
1; |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
__END__ |