| line |
true |
false |
branch |
|
84
|
8 |
0 |
if (my $code = $$sym{$pwd}) |
|
86
|
0 |
8 |
unless $cwd eq $pwd |
|
88
|
0 |
8 |
unless $$sym =~ /([^:]+)$/ |
|
90
|
8 |
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 |
111 |
unless $obj->can($method) |
|
135
|
2 |
109 |
if $method =~ /^_/ |
|
136
|
11 |
98 |
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 |
8 |
unless my $obj = $self->load($method) |
|
188
|
0 |
8 |
unless $$self{'extensions'} |
|
193
|
8 |
44 |
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 |