| line | % | coverage | branch |
|---|
| 62 | 50 | T | F | if defined &UNIVERSAL::Protected |
| 80 | 100 | T | F | if ($phase eq "BEGIN") |
| 81 | 100 | T | F | unless $_post_check |
| 404 | 100 | T | F | unless @subs |
| 410 | 100 | T | F | if (@subs == 1 and ref $subs[0] and ref $subs[0] ne "CODE") |
| 414 | 100 | T | F | ref $args->{'subs'} eq 'ARRAY' ? : |
| 422 | 100 | T | F | defined $sub_name && !ref($sub_name) ? : |
| 427 | 100 | T | F | unless $valid |
| 433 | 100 | T | F | if ($_post_check) { } |
| 494 | 100 | T | F | unless $BYPASS or $config{'harness_bypass'} and $ENV{'HARNESS_ACTIVE'} |
| 500 | 100 | T | F | unless defined &{"${owner_pkg}::$sub_name";} |
| 525 | 100 | T | F | unless $BYPASS or $config{'harness_bypass'} and $ENV{'HARNESS_ACTIVE'} |
| 552 | 100 | T | F | if $BYPASS |
| 553 | 100 | T | F | if $config{'harness_bypass'} and $ENV{'HARNESS_ACTIVE'} |
| 561 | 100 | T | F | unless (defined $pkg) |
| 567 | 100 | T | F | if ($pkg eq $SELF) |
| 573 | 100 | T | F | if $pkg eq $owner_pkg or $pkg->isa($owner_pkg) |
| 598 | 100 | T | F | if $caller eq $SELF or eval {
do {
$caller->isa($SELF)
}
} |