| line |
true |
false |
branch |
|
84
|
11 |
0 |
if (my $code = $$sym{$pwd})
|
|
86
|
0 |
11 |
unless $cwd eq $pwd
|
|
88
|
0 |
11 |
unless $$sym =~ /([^:]+)$/
|
|
90
|
11 |
0 |
unless uc $1 eq $1
|
|
99
|
0 |
1 |
unless (-f $$self{'file'})
|
|
119
|
1 |
0 |
unless ($$self{'extensions'})
|
|
126
|
0 |
1 |
unless (@exts)
|
|
134
|
32 |
116 |
unless $obj->can($method)
|
|
135
|
2 |
114 |
if $method =~ /^_/
|
|
136
|
11 |
103 |
if $method eq uc $method
|
|
155
|
0 |
1 |
unless (Cwd::abs_path(Cwd::cwd()) eq $base_path)
|
|
159
|
0 |
1 |
if $args{'_self'}
|
|
163
|
0 |
1 |
$^O eq 'VMS' ? :
|
|
169
|
1 |
0 |
unless ($args{'path'})
|
|
180
|
0 |
11 |
unless my $obj = $self->load($method)
|
|
188
|
0 |
11 |
unless $$self{'extensions'}
|
|
193
|
11 |
62 |
if $obj->can($method)
|
|
196
|
0 |
0 |
unless my $admin = $$self{'admin'}
|
|
210
|
0 |
1 |
unless (grep {lc $_ eq lc $$self{'prefix'};} @INC)
|
|
216
|
0 |
9 |
if $$self{'pathnames'}{$pkg}
|
|
220
|
0 |
9 |
unless ($new)
|
|
221
|
0 |
0 |
if $@
|
|
237
|
1 |
9 |
unless $file =~ m[^\Q$path\E/(.+)\.pm\Z]is
|
|
239
|
0 |
9 |
if lc $subpath eq lc $$self{'dispatch'}
|
|
248
|
0 |
9 |
if ($subpath eq lc $subpath or $subpath eq uc $subpath)
|
|
249
|
0 |
0 |
unless open PKGFILE, "<$subpath.pm"
|
|
252
|
0 |
0 |
if /^=\w/
|
|
253
|
0 |
0 |
if /^=cut/
|
|
254
|
0 |
0 |
if $in_pod or /^=cut/
|
|
255
|
0 |
0 |
if /^\s*#/
|
|
256
|
0 |
0 |
if (/^\s*package\s+($pkg)\s*;/i)
|
|
265
|
1 |
0 |
if -d $path
|