| line |
true |
false |
branch |
|
14
|
0 |
7 |
unless @_ |
|
25
|
3 |
0 |
if defined $_[0] |
|
27
|
2 |
1 |
if ($@) |
|
31
|
1 |
1 |
unless $@ =~ /^Can't locate $c in \@INC/ and grep {/[^:][^:]\z/;} keys %{$_ . '::';} |
|
39
|
3 |
2 |
unless (ref $packages eq 'ARRAY') |
|
40
|
1 |
2 |
defined $packages && !ref($packages) ? : |
|
46
|
1 |
1 |
$t eq '$' ? : |
|
|
1 |
2 |
$t eq '@' ? : |
|
|
1 |
3 |
$t eq '%' ? : |
|
|
1 |
4 |
$t eq '&' ? : |
|
|
0 |
5 |
$t eq '*' ? : |
|
56
|
4 |
12 |
$type eq 'SCALAR' ? : |
|
63
|
11 |
3 |
if defined $_[0] |
|
64
|
5 |
9 |
defined $_ && length $_ && eval {
do {
$_->isa(ref $_)
}
} ? : |
|
71
|
0 |
5 |
unless $class |
|
77
|
0 |
23 |
unless defined($c = shift @stack) and length $c |
|
80
|
4 |
18 |
$skip{$_}++ ? : |
|
82
|
2 |
3 |
wantarray ? : |