| 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
|
4 |
0 |
unless (Cwd::abs_path(Cwd::getcwd()) eq $base_path)
|
|
244
|
0 |
4 |
if $args{'_self'}
|
|
246
|
0 |
4 |
if $^O eq "VMS"
|
|
250
|
0 |
2 |
$^O eq 'VMS' ? :
|
|
256
|
2 |
2 |
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 |
3 |
unless open FH, "<", $_[0]
|
|
382
|
0 |
3 |
unless close FH
|
|
397
|
0 |
1 |
if $_[0] =~ /\.pod\z/
|
|
407
|
0 |
1 |
unless open FH, ">", $_[0]
|
|
410
|
0 |
1 |
unless print FH $_[$_]
|
|
412
|
0 |
1 |
unless close FH
|
|
420
|
8 |
18 |
if ($d >= 2)
|
|
429
|
20 |
6 |
if @v
|
|
440
|
0 |
0 |
defined $_[0] && !ref($_[0]) && $_[0] =~ /^[^\W\d]\w*(?:::\w+)*\z/s ? :
|