| line |
true |
false |
branch |
|
560
|
1123 |
239 |
unless exists $special_source{$n} |
|
565
|
895 |
3 |
unless exists $special_target{$n} |
|
573
|
2 |
35 |
if ($exclude) |
|
576
|
0 |
4 |
if $nowarn_nomethod |
|
580
|
21 |
16 |
reftype $obj ? : |
|
|
4 |
33 |
if (reftype $obj ? !defined(blessed $obj) && 'GLOB' eq reftype $obj : 'GLOB' eq reftype(\$obj)) |
|
583
|
0 |
4 |
unless (defined $obj) |
|
590
|
2 |
35 |
unless ($can_methods) |
|
591
|
0 |
1 |
defined blessed($obj) ? : |
|
|
0 |
0 |
!$obj ? : |
|
|
1 |
0 |
!length($obj) ? : |
|
|
0 |
1 |
!defined($obj) ? : |
|
|
1 |
1 |
reftype $obj ? : |
|
599
|
2 |
12 |
if (not reftype $obj and do {
no strict 'refs';
not %{$obj . '::';}
}) |
|
605
|
0 |
35 |
if $debug |
|
609
|
900 |
94 |
if (not $exclude{$m} || $r{$m} and $obj->can($m) and not special_source($m) and $underscore || !($m =~ /\A_/)) |
|
626
|
30 |
123 |
defined $x ? : |
|
631
|
3 |
51 |
if (@_ <= 1) |
|
634
|
0 |
51 |
unless 0 == @opt % 2 |
|
639
|
0 |
51 |
if %opt |
|
642
|
10 |
41 |
$deref ? : |
|
644
|
2 |
49 |
if $exclude_import |
|
647
|
0 |
51 |
if ($debug) |
|
649
|
14 |
37 |
if ($methl) { } |
|
657
|
913 |
4 |
if (not $exclude_import{$funn} and $methl || !(special_target($funn) || exists &{$expkgns . $funn;})) |
|
666
|
2 |
911 |
if ($nowarn_redefine) { } |
|
676
|
0 |
51 |
if ($debug) |
|
677
|
13 |
38 |
if ($savename) |