| line |
true |
false |
branch |
|
65
|
0 |
0 |
unless $args{'FILE'} and -f $args{'FILE'} and -r _ |
|
66
|
0 |
0 |
if ($args{'FILE'} =~ m[^(.*/)?((?:\d+_)+?)(?:0_)*_(.+)$]) { } |
|
|
0 |
0 |
elsif ($args{'FILE'} =~ m[^(.*/)?(.+)$]) { } |
|
67
|
0 |
0 |
unless $$self{'FILE'} = $3 |
|
71
|
0 |
0 |
unless $$self{'FILE'} = $2 |
|
75
|
0 |
0 |
if $1 |
|
76
|
0 |
0 |
unless $$self{'WHOLE'} = $& |
|
78
|
0 |
0 |
if ($args{'SEARCH_PATHS'} and @{$args{'SEARCH_PATHS'};}) |
|
80
|
0 |
0 |
if (-d $_ and -r $_) { } |
|
88
|
0 |
0 |
if ($args{'RECURSION_DEPTH'}) |
|
89
|
0 |
0 |
unless $args{'RECURSION_DEPTH'} =~ /^[+]?\d+$/ |
|
93
|
0 |
0 |
$args{'FOLLOW_SYMBOLIC'} ? : |
|
102
|
0 |
0 |
if (@_) |
|
109
|
0 |
0 |
$args{'FOLLOW_SYMBOLIC'} ? : |
|
116
|
0 |
0 |
if (@{$args{'SEARCH_PATHS'};}) { } |
|
118
|
0 |
0 |
if (-d $_ and -r $_) { } |
|
139
|
0 |
0 |
if ($match = &$recursive_find($self, $regex)) |
|
153
|
0 |
0 |
if ($match = &$recursive_find($self, $regex)) |
|
155
|
0 |
0 |
if (my($gen) = /$$self{'VERSION'}((\d+_)+?)(?:0_)*_/) |
|
157
|
0 |
0 |
if $+ |
|
168
|
0 |
0 |
unless $$self{'DESCENDANTS'} |
|
169
|
0 |
0 |
if ($$self{'DESCENDANTS'}) |
|
171
|
0 |
0 |
if $high < $$self{'DESCENDANTS'}{'1'}{$_} |