| line |
true |
false |
branch |
|
122
|
18 |
0 |
if (my $code = $$sym{$pwd}) |
|
124
|
0 |
18 |
unless $cwd eq $pwd |
|
126
|
0 |
18 |
unless $$sym =~ /([^:]+)$/ |
|
128
|
18 |
0 |
unless uc $1 eq $1 |
|
137
|
0 |
1 |
unless (-f $$self{'file'}) |
|
158
|
1 |
0 |
unless ($$self{'extensions'}) |
|
165
|
0 |
1 |
unless (@exts) |
|
173
|
31 |
124 |
unless $obj->can($method) |
|
174
|
2 |
122 |
if $method =~ /^_/ |
|
175
|
11 |
111 |
if $method eq uc $method |
|
194
|
0 |
1 |
unless (Cwd::abs_path(Cwd::cwd()) eq $base_path) |
|
198
|
0 |
1 |
if $args{'_self'} |
|
202
|
0 |
1 |
$^O eq 'VMS' ? : |
|
208
|
1 |
0 |
unless ($args{'path'}) |
|
220
|
0 |
18 |
unless my $obj = $self->load($method) |
|
228
|
0 |
18 |
unless $$self{'extensions'} |
|
233
|
18 |
100 |
if $obj->can($method) |
|
236
|
0 |
0 |
unless my $admin = $$self{'admin'} |
|
250
|
0 |
1 |
unless (grep {lc $_ eq lc $$self{'prefix'};} @INC) |
|
256
|
0 |
9 |
if $$self{'pathnames'}{$pkg} |
|
260
|
0 |
9 |
unless ($new) |
|
261
|
0 |
0 |
if $@ |
|
277
|
1 |
9 |
unless $file =~ m[^\Q$path\E/(.+)\.pm\Z]is |
|
279
|
0 |
9 |
if lc $subpath eq lc $$self{'dispatch'} |
|
288
|
0 |
9 |
if ($subpath eq lc $subpath or $subpath eq uc $subpath) |
|
292
|
0 |
0 |
if /^=\w/ |
|
293
|
0 |
0 |
if /^=cut/ |
|
294
|
0 |
0 |
if $in_pod or /^=cut/ |
|
295
|
0 |
0 |
if /^\s*#/ |
|
296
|
0 |
0 |
if (/^\s*package\s+($pkg)\s*;/i) |
|
304
|
1 |
0 |
if -d $path |
|
328
|
0 |
1 |
unless open FH, "< $_[0]" |
|
330
|
0 |
1 |
unless close FH |
|
336
|
0 |
0 |
unless open FH, "> $_[0]" |
|
337
|
0 |
0 |
unless print FH $_[$_] |
|
338
|
0 |
0 |
unless close FH |
|
346
|
0 |
0 |
if @v |