| line |
true |
false |
branch |
|
15
|
0 |
1 |
if (defined $_[-1] and ref $_[-1] eq 'ARRAY' || $_[-1] =~ /^\d+$/ || ref $_[-1] eq 'CODE') |
|
16
|
0 |
0 |
if (ref $_[-1]) { } |
|
17
|
0 |
0 |
if (ref $_[-1] eq 'ARRAY') { } |
|
36
|
0 |
1 |
if (not -d $path and ref $ENV{'lib::restrict-!-d_ok_in'} eq 'ARRAY') |
|
41
|
0 |
0 |
'File::Spec'->file_name_is_absolute($path) ? : |
|
44
|
0 |
0 |
if ('File::Spec'->file_name_is_absolute($absolute)) |
|
46
|
0 |
0 |
unless 'File::Spec'->file_name_is_absolute($base) |
|
50
|
0 |
0 |
if $pathless eq $grow |
|
54
|
0 |
0 |
if $ok |
|
58
|
0 |
1 |
if (keys %uid and not exists $uid{_get_owner($path)} or ref $chk eq 'CODE' and not &$chk($_)) |
|
59
|
0 |
0 |
unless ($ENV{'lib::restrict-quiet'}) |
|
70
|
0 |
1 |
if (keys %uid) |
|
71
|
0 |
0 |
unless exists $uid{_get_owner($_)} |
|
79
|
0 |
0 |
defined $own ? : |