| lib/Sub/Override.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 11 | 12 | 91.6 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 87 | 8 | 1 | 1 | not $name_of_sub and 1 == keys %$self |
| line | l | !l | condition |
|---|---|---|---|
| 31 | 2 | 7 | $self->{$sub_to_replace} ||= *$sub_to_replace{"CODE"} |
| 70 | 0 | 2 | $self->{$sub_to_replace} ||= *$sub_to_replace{"CODE"} |
| 126 | 27 | 2 | $subname || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 130 | 14 | 15 | 14 | not $this_package or __PACKAGE__ eq $this_package |