| line |
true |
false |
branch |
|
177
|
4 |
2 |
if defined $dir |
|
187
|
2 |
10 |
if exists $DIST_SHARE{$dist} |
|
230
|
2 |
13 |
if exists $MODULE_SHARE{$module} |
|
256
|
1 |
7 |
unless $long =~ /^(.*)\Q$short\E\.pm\z/s |
|
259
|
4 |
3 |
unless -d $dir |
|
260
|
0 |
3 |
unless -r $dir |
|
292
|
2 |
4 |
unless $path |
|
294
|
1 |
3 |
unless -f $path |
|
295
|
0 |
3 |
unless -r $path |
|
307
|
3 |
3 |
unless defined $dir |
|
311
|
1 |
2 |
unless -e $path |
|
323
|
1 |
3 |
unless defined $dir |
|
327
|
1 |
2 |
unless -e $path |
|
362
|
1 |
3 |
unless -e $path |
|
363
|
0 |
3 |
unless -r $path |
|
420
|
2 |
3 |
if $@ |
|
422
|
2 |
1 |
unless -e $path |
|
423
|
0 |
1 |
unless -r $path |
|
462
|
239 |
4 |
if defined &_STRING($_) |
|
463
|
13 |
226 |
-d $d ? : |
|
|
239 |
4 |
if defined $d |
|
466
|
18 |
13 |
unless my $dir = &firstres(sub {
my $d;
$d = 'File::Spec'->catdir($_, $path) if defined &_STRING($_);
-d $d ? $d : 0 if defined $d;
}
, @INC) |
|
468
|
0 |
13 |
unless -r $dir |
|
511
|
14 |
2 |
if defined &_STRING($_[0]) and $_[0] =~ /^[a-z0-9+_-]+$/is |
|
518
|
2 |
24 |
unless my $module = &_CLASS(shift()) |
|
519
|
23 |
1 |
if 'Class::Inspector'->loaded($module) |
|
527
|
1 |
13 |
unless &_STRING($file) |
|
528
|
1 |
12 |
if 'File::Spec'->file_name_is_absolute($file) |