| line |
true |
false |
branch |
|
40
|
0 |
5 |
unless my $filename = $class->_inc_filename(shift()) |
|
44
|
2 |
29 |
if ($ref eq 'CODE') { } |
|
|
3 |
26 |
elsif ($ref eq 'ARRAY' and ref $inc->[0] eq 'CODE') { } |
|
|
4 |
44 |
elsif ($ref and eval {
do {
$inc->can('INC')
}
}) { } |
|
46
|
0 |
2 |
if (@ret == 1 and not defined $ret[0]) { } |
|
|
1 |
1 |
elsif (@ret) { } |
|
54
|
1 |
2 |
if (@ret) |
|
60
|
1 |
3 |
if (@ret) |
|
77
|
0 |
31 |
unless my $name = $class->_class(shift()) |
|
87
|
335 |
664 |
if defined ${"${name}::VERSION";} |
|
88
|
222 |
442 |
if @{"${name}::ISA";} |
|
92
|
259 |
727 |
if substr($_, -2, 2) eq '::' |
|
93
|
140 |
587 |
if defined &{"${name}::$_";} |
|
99
|
0 |
302 |
if defined $INC{$filename} |
|
107
|
0 |
2 |
unless my $name = $class->_class(shift()) |
|
114
|
0 |
7 |
unless my $filename = $class->_inc_filename(shift()) |
|
120
|
69 |
2 |
unless -e $full |
|
121
|
2 |
0 |
$UNIX ? : |
|
132
|
9 |
0 |
$UNIX ? : |
|
145
|
0 |
3 |
unless my $name = $class->_class(shift()) |
|
146
|
2 |
1 |
unless $class->loaded($name) |
|
158
|
0 |
1 |
unless my $name = $class->_class(shift()) |
|
159
|
0 |
1 |
unless $class->loaded($name) |
|
173
|
0 |
4 |
unless my $name = $class->_class(shift()) |
|
174
|
1 |
3 |
unless my $function = shift() |
|
177
|
1 |
2 |
unless $class->loaded($name) |
|
186
|
0 |
23 |
unless my $name = $class->_class(shift()) |
|
192
|
6 |
14 |
if ($_ eq 'public') { } |
|
|
4 |
10 |
elsif ($_ eq 'private') { } |
|
|
4 |
6 |
elsif ($_ eq 'full') { } |
|
|
6 |
0 |
elsif ($_ eq 'expanded') { } |
|
194
|
1 |
5 |
if $options{'private'} |
|
199
|
1 |
3 |
if $options{'public'} |
|
204
|
1 |
3 |
if $options{'expanded'} |
|
209
|
1 |
5 |
if $options{'full'} |
|
219
|
6 |
13 |
unless $class->loaded($name) |
|
250
|
4 |
9 |
if $options{'public'} |
|
251
|
2 |
11 |
if $options{'private'} |
|
254
|
2 |
11 |
if $options{'full'} |
|
257
|
4 |
9 |
if $options{'expanded'} |
|
272
|
1 |
4 |
unless my $name = $class->_class(shift()) |
|
279
|
678 |
290 |
if ($class->_loaded($c)) |
|
288
|
8 |
669 |
if ($c->isa($name)) |
|
290
|
5 |
3 |
unless $c eq $name |
|
301
|
3 |
1 |
@found ? : |
|
308
|
972 |
18113 |
if substr($_, -2, 2, '') eq '::' |
|
329
|
0 |
0 |
unless my $name = $class->_class(shift()) |
|
339
|
0 |
0 |
unless my $name = $class->_class(shift()) |
|
366
|
2 |
400 |
unless my $name = shift() |
|
369
|
1 |
399 |
if $name eq '::' |
|
373
|
397 |
2 |
$name =~ /$RE_CLASS/o ? : |
|
380
|
0 |
325 |
unless my $name = $class->_class(shift()) |
|
387
|
1 |
0 |
if $UNIX |
|
394
|
0 |
0 |
unless my $inc_name = shift() |