| line |
true |
false |
branch |
|
61
|
0 |
0 |
unless ($INC{$file}) |
|
77
|
0 |
0 |
if $^O eq 'MSWin32' and $] >= 5.006 |
|
84
|
0 |
0 |
if (-f $0) |
|
90
|
0 |
0 |
if ($a > 0 and $a < 5) |
|
94
|
0 |
0 |
if ($s > $t) |
|
108
|
0 |
0 |
if ($0 =~ /Build.PL$/i) |
|
127
|
0 |
0 |
unless (-f $$self{'file'}) |
|
129
|
0 |
0 |
if $key =~ m[Module/Install] |
|
162
|
0 |
0 |
if (my $code = $$sym{$pwd}) |
|
164
|
0 |
0 |
unless $cwd eq $pwd |
|
166
|
0 |
0 |
unless ($$sym =~ s/([^:]+)$//) |
|
182
|
0 |
0 |
if (uc $method eq $method) { } |
|
|
0 |
0 |
elsif ($method =~ /^_/ and $self->can($method)) { } |
|
198
|
0 |
0 |
unless ($$self{'extensions'}) |
|
205
|
0 |
0 |
unless (@exts) |
|
212
|
0 |
0 |
unless $obj->can($method) |
|
213
|
0 |
0 |
if $method =~ /^_/ |
|
214
|
0 |
0 |
if $method eq uc $method |
|
241
|
0 |
0 |
unless (Cwd::abs_path(Cwd::cwd()) eq $base_path) |
|
244
|
0 |
0 |
if $args{'_self'} |
|
248
|
0 |
0 |
$^O eq 'VMS' ? : |
|
254
|
0 |
0 |
unless ($args{'path'}) |
|
266
|
0 |
0 |
unless my $obj = $self->load($method) |
|
274
|
0 |
0 |
unless $$self{'extensions'} |
|
279
|
0 |
0 |
if $obj->can($method) |
|
282
|
0 |
0 |
unless my $admin = $$self{'admin'} |
|
297
|
0 |
0 |
if not ref $_ |
|
|
0 |
0 |
unless (grep {lc $_ eq lc $$self{'prefix'} if not ref $_;} @INC) |
|
304
|
0 |
0 |
if $$self{'pathnames'}{$pkg} |
|
308
|
0 |
0 |
unless ($new) |
|
309
|
0 |
0 |
if $@ |
|
312
|
0 |
0 |
$should_reload ? : |
|
326
|
0 |
0 |
unless $file =~ m[^\Q$path\E/(.+)\.pm\Z]is |
|
328
|
0 |
0 |
if lc $subpath eq lc $$self{'dispatch'} |
|
337
|
0 |
0 |
if ($subpath eq lc $subpath or $subpath eq uc $subpath) |
|
341
|
0 |
0 |
if /^=\w/ |
|
342
|
0 |
0 |
if /^=cut/ |
|
343
|
0 |
0 |
if $in_pod or /^=cut/ |
|
344
|
0 |
0 |
if /^\s*#/ |
|
345
|
0 |
0 |
if (/^\s*package\s+($pkg)\s*;/i) |
|
353
|
0 |
0 |
if -d $path |
|
376
|
0 |
0 |
unless open FH, '<', $_[0] |
|
|
0 |
0 |
unless close FH |
|
405
|
0 |
0 |
if $_[0] =~ /\.pod\z/ |
|
414
|
0 |
0 |
unless open FH, '>', $_[0] |
|
|
0 |
0 |
unless print FH $_[$_] |
|
|
0 |
0 |
unless close FH |
|
439
|
0 |
0 |
if ($d >= 2) |
|
448
|
0 |
0 |
if @v |
|
459
|
0 |
0 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s ? : |