| blib/lib/Test/Subroutines.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 20 | 5.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 1 | 0 | unless grep {"$_" eq \&trace_use . '';} @INC |
| 44 | 0 | 0 | if (ref $thing eq ref {}) |
| 48 | 0 | 0 | if (ref $thing eq ref '') |
| 49 | 0 | 0 | if $thing =~ /::/ |
| 67 | 0 | 0 | unless eval "package $pkg; $subs; sub $key { no warnings 'closure'; $text; }; 1;" |
| 77 | 0 | 0 | if $sub eq $key |
| 83 | 0 | 0 | if (not_external($pkg, $sub, @used)) |
| 84 | 0 | 0 | if (exists $globals{$v}) { } |
| 99 | 0 | 0 | unless scalar grep({$_ eq "${pack}::$s";} 'Devel::Symdump'->functions($pack)) |
| 101 | 0 | 0 | if get_subref($s, $pack) eq get_subref($s, $p) |