| 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::getcwd()) eq $base_path) |
|
244
|
0 |
0 |
if $args{'_self'} |
|
246
|
0 |
0 |
if $^O eq 'VMS' |
|
250
|
0 |
0 |
$^O eq 'VMS' ? : |
|
256
|
0 |
0 |
unless ($args{'path'}) |
|
268
|
0 |
0 |
unless my $obj = $self->load($method) |
|
278
|
0 |
0 |
unless $self->{'extensions'} |
|
281
|
0 |
0 |
if $obj->can($method) |
|
284
|
0 |
0 |
unless my $admin = $self->{'admin'} |
|
299
|
0 |
0 |
if not ref $_ |
|
|
0 |
0 |
unless (grep {lc $_ eq lc $self->{'prefix'} if not ref $_;} @INC) |
|
306
|
0 |
0 |
if $self->{'pathnames'}{$pkg} |
|
310
|
0 |
0 |
unless ($new) |
|
311
|
0 |
0 |
if $@ |
|
315
|
0 |
0 |
$should_reload ? : |
|
328
|
0 |
0 |
unless $file =~ m[^\Q$path\E/(.+)\.pm\Z]is |
|
330
|
0 |
0 |
if lc $subpath eq lc $self->{'dispatch'} |
|
339
|
0 |
0 |
if ($subpath eq lc $subpath or $subpath eq uc $subpath) |
|
343
|
0 |
0 |
if /^=\w/ |
|
344
|
0 |
0 |
if /^=cut/ |
|
345
|
0 |
0 |
if $in_pod or /^=cut/ |
|
346
|
0 |
0 |
if /^\s*#/ |
|
347
|
0 |
0 |
if (/^\s*package\s+($pkg)\s*;/i) |
|
355
|
0 |
0 |
if -d $path |
|
379
|
0 |
0 |
unless open FH, '<', $_[0] |
|
382
|
0 |
0 |
unless close FH |
|
397
|
0 |
0 |
if $_[0] =~ /\.pod\z/ |
|
407
|
0 |
0 |
unless open FH, '>', $_[0] |
|
410
|
0 |
0 |
unless print FH $_[$_] |
|
412
|
0 |
0 |
unless close FH |
|
420
|
0 |
0 |
if ($d >= 2) |
|
429
|
0 |
0 |
if @v |
|
440
|
0 |
0 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s ? : |