| line |
true |
false |
branch |
|
36
|
0 |
5 |
unless my $filename = $class->_inc_filename(shift()) |
|
40
|
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')
}
}) { } |
|
42
|
0 |
2 |
if (@ret == 1 and not defined $ret[0]) { } |
|
|
1 |
1 |
elsif (@ret) { } |
|
50
|
1 |
2 |
if (@ret) |
|
56
|
1 |
3 |
if (@ret) |
|
73
|
0 |
30 |
unless my $name = $class->_class(shift()) |
|
83
|
335 |
659 |
if defined ${"${name}::VERSION";} |
|
84
|
218 |
441 |
if @{"${name}::ISA";} |
|
88
|
266 |
714 |
if substr($_, -2, 2) eq '::' |
|
89
|
140 |
574 |
if defined &{"${name}::$_";} |
|
95
|
0 |
301 |
if defined $INC{$filename} |
|
103
|
0 |
2 |
unless my $name = $class->_class(shift()) |
|
110
|
0 |
7 |
unless my $filename = $class->_inc_filename(shift()) |
|
116
|
69 |
2 |
unless -e $full |
|
117
|
2 |
0 |
$UNIX ? : |
|
128
|
9 |
0 |
$UNIX ? : |
|
141
|
0 |
3 |
unless my $name = $class->_class(shift()) |
|
142
|
2 |
1 |
unless $class->loaded($name) |
|
154
|
0 |
1 |
unless my $name = $class->_class(shift()) |
|
155
|
0 |
1 |
unless $class->loaded($name) |
|
169
|
0 |
4 |
unless my $name = $class->_class(shift()) |
|
170
|
1 |
3 |
unless my $function = shift() |
|
173
|
1 |
2 |
unless $class->loaded($name) |
|
182
|
0 |
22 |
unless my $name = $class->_class(shift()) |
|
188
|
6 |
14 |
if ($_ eq 'public') { } |
|
|
4 |
10 |
elsif ($_ eq 'private') { } |
|
|
4 |
6 |
elsif ($_ eq 'full') { } |
|
|
6 |
0 |
elsif ($_ eq 'expanded') { } |
|
190
|
1 |
5 |
if $options{'private'} |
|
195
|
1 |
3 |
if $options{'public'} |
|
200
|
1 |
3 |
if $options{'expanded'} |
|
205
|
1 |
5 |
if $options{'full'} |
|
215
|
6 |
12 |
unless $class->loaded($name) |
|
245
|
4 |
8 |
if $options{'public'} |
|
246
|
2 |
10 |
if $options{'private'} |
|
249
|
2 |
10 |
if $options{'full'} |
|
252
|
4 |
8 |
if $options{'expanded'} |
|
267
|
1 |
4 |
unless my $name = $class->_class(shift()) |
|
274
|
675 |
289 |
if ($class->_loaded($c)) |
|
283
|
8 |
666 |
if ($c->isa($name)) |
|
285
|
5 |
3 |
unless $c eq $name |
|
296
|
3 |
1 |
@found ? : |
|
303
|
968 |
18102 |
if substr($_, -2, 2, '') eq '::' |
|
324
|
0 |
0 |
unless my $name = $class->_class(shift()) |
|
334
|
0 |
0 |
unless my $name = $class->_class(shift()) |
|
361
|
2 |
397 |
unless my $name = shift() |
|
364
|
1 |
396 |
if $name eq '::' |
|
368
|
394 |
2 |
$name =~ /$RE_CLASS/o ? : |
|
375
|
0 |
324 |
unless my $name = $class->_class(shift()) |
|
382
|
1 |
0 |
if $UNIX |
|
389
|
0 |
0 |
unless my $inc_name = shift() |