| line |
true |
false |
branch |
|
16
|
0 |
12 |
if ref $it eq 'ARRAY' |
|
21
|
0 |
12 |
unless defined $it and $it =~ m[/|\w] |
|
24
|
7 |
5 |
if ($it =~ s/^(-\w+)//) { } |
|
27
|
4 |
3 |
unless $flag eq '-lib' |
|
31
|
0 |
3 |
if $it |
|
38
|
1 |
4 |
unless $flag and $flag eq '-lib' |
|
45
|
1 |
3 |
if $it =~ m[^/] |
|
57
|
3 |
4 |
if (@libs and my(@ok_libs) = grep({my $lib = $_;
not scalar grep(($lib eq $_), @INC);} @libs)) |
|
63
|
2 |
5 |
unless $flag = shift @flags |
|
66
|
1 |
4 |
if ($flag eq '-base') { } |
|
|
3 |
1 |
elsif ($flag eq '-strict') { } |
|
|
1 |
0 |
elsif (my $file = $flag and not $flag->can('new')) { } |
|
78
|
2 |
3 |
if ($flag) |