| line |
true |
false |
branch |
|
41
|
0 |
0 |
unless @pragma |
|
52
|
0 |
0 |
if (ref $pragmaSpec eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (not ref $pragmaSpec and $pragmaSpec =~ /^-(\w+)$/) { } |
|
|
0 |
0 |
elsif (not ref $pragmaSpec and $pragmaSpec =~ /^\$\w+\z/) { } |
|
66
|
0 |
0 |
unless my $sub = $pack->can("declare_$pragma") |
|
90
|
0 |
0 |
if (my(@necessary) = grep({my $dir = $_;
not grep({$dir eq $_;} @INC) if -d $dir;} @libdir)) { } |
|
93
|
0 |
0 |
if -d $dir |
|
131
|
0 |
0 |
if (ref $_) { } |
|
135
|
0 |
0 |
unless my $sub = $pack->can("libdir_to_$kind") |
|
168
|
2 |
0 |
@caller ? : |
|
173
|
0 |
2 |
-l $filename ? : |
|
179
|
0 |
2 |
unless $absfn =~ /\Q$packfn\E\z/ |
|
204
|
0 |
0 |
if ('File::Spec'->file_name_is_absolute($linkText)) { } |
|
211
|
0 |
0 |
if (wantarray) { } |