| line |
true |
false |
branch |
|
17
|
3 |
0 |
ref $args[0] ? : |
|
28
|
0 |
67 |
unless $root->subsumes($path) |
|
35
|
0 |
39 |
unless -d $path and opendir $handle, $path |
|
39
|
23 |
116 |
unless defined $dir |
|
40
|
46 |
70 |
if $dir eq '.' or $dir eq '..' |
|
50
|
0 |
6 |
unless -d $root |
|
57
|
6 |
12 |
unless defined $category |
|
60
|
0 |
12 |
if $category =~ /\A[.]/x |
|
65
|
0 |
6 |
if $package =~ /\A[.]/x |
|
69
|
0 |
6 |
if $file =~ /\A[.]/x |
|
91
|
8 |
0 |
if ($config->{'in'}) |
|
94
|
2 |
6 |
unless -d $catdir |
|
99
|
6 |
8 |
unless defined $package |
|
100
|
0 |
8 |
if $package =~ /\A[.]/x |
|
104
|
0 |
4 |
if $file =~ /\A[.]/x |
|
113
|
0 |
0 |
unless -d $root |
|
119
|
0 |
0 |
unless defined $category |
|
125
|
0 |
0 |
unless defined $category |
|
127
|
0 |
0 |
unless (defined $package) |
|
129
|
0 |
0 |
unless defined $category |
|
130
|
0 |
0 |
if (defined $category) |
|
137
|
0 |
0 |
if $package =~ /\A[.]/x |
|
141
|
0 |
0 |
if $file =~ /\A[.]/x |
|
151
|
8 |
0 |
ref $args[0] ? : |
|
163
|
0 |
1 |
unless $config->{'for'} |
|
166
|
0 |
1 |
unless -d $catdir |
|
172
|
1 |
34 |
unless defined $file |
|
173
|
0 |
34 |
if $file =~ /\A[.]/x |
|
240
|
1 |
0 |
ref $args[0] ? : |
|
245
|
33 |
1 |
if (exists $ENATIVE->{$entry}) |
|
255
|
1 |
32 |
ref $ENATIVE->{$entry} ? : |
|
260
|
33 |
1 |
unless $rule->[0]->($entry) |
|
269
|
1 |
0 |
ref $rule->[1] ? : |
|
274
|
0 |
34 |
unless ($matched) |
|
290
|
32 |
0 |
ref $args[0] ? : |
|
292
|
0 |
32 |
unless exists $config->{'for'} and exists $config->{'property'} |
|
295
|
0 |
32 |
unless open my $fh, '<', $self->_abspath($config->{'for'}, $config->{'property'}) |