| line |
true |
false |
branch |
|
39
|
0 |
5 |
unless my $filename = $class->_inc_filename(shift()) |
|
43
|
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')
}
}) { } |
|
45
|
0 |
2 |
if (@ret == 1 and not defined $ret[0]) { } |
|
|
1 |
1 |
elsif (@ret) { } |
|
53
|
1 |
2 |
if (@ret) |
|
59
|
1 |
3 |
if (@ret) |
|
76
|
0 |
31 |
unless my $name = $class->_class(shift()) |
|
86
|
335 |
664 |
if defined ${"${name}::VERSION";} |
|
87
|
222 |
442 |
if @{"${name}::ISA";} |
|
91
|
255 |
708 |
if substr($_, -2, 2) eq '::' |
|
92
|
140 |
568 |
if defined &{"${name}::$_";} |
|
98
|
0 |
302 |
if defined $INC{$filename} |
|
106
|
0 |
2 |
unless my $name = $class->_class(shift()) |
|
113
|
0 |
7 |
unless my $filename = $class->_inc_filename(shift()) |
|
119
|
69 |
2 |
unless -e $full |
|
120
|
2 |
0 |
$UNIX ? : |
|
131
|
9 |
0 |
$UNIX ? : |
|
144
|
0 |
3 |
unless my $name = $class->_class(shift()) |
|
145
|
2 |
1 |
unless $class->loaded($name) |
|
157
|
0 |
1 |
unless my $name = $class->_class(shift()) |
|
158
|
0 |
1 |
unless $class->loaded($name) |
|
172
|
0 |
4 |
unless my $name = $class->_class(shift()) |
|
173
|
1 |
3 |
unless my $function = shift() |
|
176
|
1 |
2 |
unless $class->loaded($name) |
|
185
|
0 |
23 |
unless my $name = $class->_class(shift()) |
|
191
|
6 |
14 |
if ($_ eq 'public') { } |
|
|
4 |
10 |
elsif ($_ eq 'private') { } |
|
|
4 |
6 |
elsif ($_ eq 'full') { } |
|
|
6 |
0 |
elsif ($_ eq 'expanded') { } |
|
193
|
1 |
5 |
if $options{'private'} |
|
198
|
1 |
3 |
if $options{'public'} |
|
203
|
1 |
3 |
if $options{'expanded'} |
|
208
|
1 |
5 |
if $options{'full'} |
|
218
|
6 |
13 |
unless $class->loaded($name) |
|
249
|
4 |
9 |
if $options{'public'} |
|
250
|
2 |
11 |
if $options{'private'} |
|
253
|
2 |
11 |
if $options{'full'} |
|
256
|
4 |
9 |
if $options{'expanded'} |
|
271
|
1 |
4 |
unless my $name = $class->_class(shift()) |
|
278
|
678 |
290 |
if ($class->_loaded($c)) |
|
287
|
8 |
669 |
if ($c->isa($name)) |
|
289
|
5 |
3 |
unless $c eq $name |
|
300
|
3 |
1 |
@found ? : |
|
307
|
972 |
18113 |
if substr($_, -2, 2, '') eq '::' |
|
328
|
0 |
0 |
unless my $name = $class->_class(shift()) |
|
338
|
0 |
0 |
unless my $name = $class->_class(shift()) |
|
365
|
2 |
400 |
unless my $name = shift() |
|
368
|
1 |
399 |
if $name eq '::' |
|
372
|
397 |
2 |
$name =~ /$RE_CLASS/o ? : |
|
379
|
0 |
325 |
unless my $name = $class->_class(shift()) |
|
386
|
1 |
0 |
if $UNIX |
|
393
|
0 |
0 |
unless my $inc_name = shift() |