| line |
true |
false |
branch |
| 107 |
0 |
28 |
unless my $name = $class->_class(shift @_) |
| 116 |
258 |
430 |
if defined ${"${name}::VERSION";} |
| 117 |
142 |
288 |
if defined @{"${name}::ISA";} |
| 121 |
156 |
311 |
if substr($_, -2, 2) eq '::' |
| 122 |
80 |
231 |
if defined &{"${name}::$_";} |
| 128 |
0 |
208 |
if defined $INC{$filename} |
| 153 |
0 |
1 |
unless my $name = $class->_class(shift @_) |
| 179 |
0 |
2 |
unless my $filename = $class->_inc_filename(shift @_) |
| 185 |
22 |
1 |
unless -e $full |
| 186 |
1 |
0 |
$UNIX ? : |
| 209 |
3 |
0 |
$UNIX ? : |
| 235 |
0 |
3 |
unless my $name = $class->_class(shift @_) |
| 236 |
2 |
1 |
unless $class->loaded($name) |
| 261 |
0 |
1 |
unless my $name = $class->_class(shift @_) |
| 262 |
0 |
1 |
unless $class->loaded($name) |
| 290 |
0 |
4 |
unless my $name = $class->_class(shift @_) |
| 291 |
1 |
3 |
unless my $function = shift @_ |
| 294 |
1 |
2 |
unless $class->loaded($name) |
| 369 |
0 |
22 |
unless my $name = $class->_class(shift @_) |
| 375 |
6 |
14 |
if ($_ eq 'public') { } |
| |
4 |
10 |
elsif ($_ eq 'private') { } |
| |
4 |
6 |
elsif ($_ eq 'full') { } |
| |
6 |
0 |
elsif ($_ eq 'expanded') { } |
| 377 |
1 |
5 |
if $options{'private'} |
| 382 |
1 |
3 |
if $options{'public'} |
| 387 |
1 |
3 |
if $options{'expanded'} |
| 392 |
1 |
5 |
if $options{'full'} |
| 402 |
6 |
12 |
unless $class->loaded($name) |
| 432 |
4 |
8 |
if $options{'public'} |
| 433 |
2 |
10 |
if $options{'private'} |
| 436 |
2 |
10 |
if $options{'full'} |
| 438 |
4 |
8 |
if $options{'expanded'} |
| 470 |
1 |
4 |
unless my $name = $class->_class(shift @_) |
| 477 |
463 |
197 |
if ($class->_loaded($c)) |
| 485 |
8 |
454 |
if ($c->isa($name)) |
| 487 |
5 |
3 |
unless $c eq $name |
| 498 |
3 |
1 |
@found ? : |
| 504 |
937 |
10451 |
if substr($_, -2, 2, '') eq '::' |
| 526 |
0 |
0 |
unless my $name = $class->_class(shift @_) |
| 536 |
0 |
0 |
unless my $name = $class->_class(shift @_) |
| 563 |
2 |
284 |
unless my $name = shift @_ |
| 566 |
1 |
283 |
if $name eq '::' |
| 570 |
281 |
2 |
$name =~ /$RE_CLASS/o ? : |
| 577 |
0 |
214 |
unless my $name = $class->_class(shift @_) |
| 586 |
0 |
0 |
if $UNIX |
| 589 |
0 |
0 |
unless my $inc_name = shift @_ |