| line |
true |
false |
branch |
|
54
|
2 |
7 |
if (ref $pragmaSpec eq 'ARRAY') { } |
|
|
6 |
1 |
elsif (not ref $pragmaSpec and $pragmaSpec =~ /^-(\w+)$/) { } |
|
|
1 |
0 |
elsif (not ref $pragmaSpec and $pragmaSpec =~ /^\$\w+\z/) { } |
|
68
|
0 |
9 |
unless my $sub = $pack->can("declare_$pragma") |
|
98
|
8 |
0 |
if (my(@necessary) = grep({my $dir = $_;
not grep({$dir eq $_;} @INC) if -d $dir;} @libdir)) { } |
|
101
|
13 |
0 |
if -d $dir |
|
139
|
1 |
7 |
if (ref $_) { } |
|
143
|
0 |
1 |
unless my $sub = $pack->can("libdir_to_$kind") |
|
176
|
8 |
1 |
@caller ? : |
|
181
|
0 |
9 |
-l $filename ? : |
|
185
|
0 |
9 |
if ($^O eq "MSWin32") |
|
191
|
0 |
9 |
unless $absfn =~ /\Q$packfn\E\z/ |
|
216
|
0 |
0 |
if ('File::Spec'->file_name_is_absolute($linkText)) { } |
|
223
|
0 |
0 |
if (wantarray) { } |