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