| File: | blib/lib/Sub/Protected.pm |
| Coverage: | 93.8% |
| line | % | coverage | condition | ||||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 410 | 75 |
| @subs == 1 and ref $subs[0] and ref $subs[0] ne "CODE" | ||||||||||||||||||||
| 422 | 100 |
| defined $sub_name && !ref($sub_name) | ||||||||||||||||||||
| 494 | 100 |
| $BYPASS or $config{'harness_bypass'} and $ENV{'HARNESS_ACTIVE'} | ||||||||||||||||||||
| 525 | 100 |
| $BYPASS or $config{'harness_bypass'} and $ENV{'HARNESS_ACTIVE'} | ||||||||||||||||||||
| 553 | 100 |
| $config{'harness_bypass'} and $ENV{'HARNESS_ACTIVE'} | ||||||||||||||||||||
| 573 | 100 |
| $pkg eq $owner_pkg or $pkg->isa($owner_pkg) | ||||||||||||||||||||
| 597 | 50 |
| (&CORE::GLOBAL::caller(1))[0] // "" | ||||||||||||||||||||
| 598 | 100 |
| $caller eq $SELF or eval { do { $caller->isa($SELF) } } |