| line |
true |
false |
branch |
|
20
|
1 |
0 |
ref $args{'locations'} eq 'ARRAY' ? : |
|
|
1 |
1 |
exists $args{'locations'} ? : |
|
21
|
1 |
1 |
exists $args{'info_level'} ? : |
|
22
|
1 |
1 |
exists $args{'autoscan'} ? : |
|
28
|
1 |
1 |
if $$self{'autoscan'} |
|
37
|
0 |
2 |
wantarray ? : |
|
39
|
2 |
1 |
wantarray ? : |
|
48
|
2 |
2 |
if (-d $location and -r $location) { } |
|
|
2 |
0 |
elsif (-f $location and -r $location) { } |
|
68
|
0 |
2 |
unless opendir my $dh, $dir |
|
71
|
4 |
7 |
if $entry =~ /^\./ |
|
72
|
0 |
7 |
unless $entry =~ /\.pid$/ |
|
74
|
0 |
7 |
unless -f $file and -r $file |
|
89
|
9 |
0 |
if ($file =~ m[([^/]+)\.pid$]) { } |
|
96
|
0 |
9 |
if ($$self{'info_level'} == 0) { } |
|
|
9 |
0 |
elsif ($$self{'info_level'} >= 1) { } |
|
100
|
0 |
9 |
unless open my $fh, '<', $file |