| lib/Sub/Override.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 23 | 24 | 95.8 |
| line | true | false | branch |
|---|---|---|---|
| 14 | 2 | 5 | if @_ |
| 76 | 1 | 1 | if defined $prototype |
| 87 | 1 | 9 | if (not $name_of_sub and 1 == keys %$self) |
| 91 | 1 | 9 | unless $name_of_sub |
| 95 | 2 | 7 | unless exists $self->{$name_of_sub} |
| 100 | 5 | 2 | if (defined $maybe_sub_ref) { } |
| 115 | 4 | 0 | if (defined $maybe_sub_ref) { } |
| 126 | 14 | 15 | if (($subname || '') =~ /^\w+$/) |
| 143 | 1 | 13 | unless ("CODE" eq ref $sub_ref) |
| 152 | 1 | 12 | unless (defined *{$code_slot;}{"CODE"}) |
| 161 | 3 | 3 | if (defined *{$code_slot;}{"CODE"}) |
| 174 | 1 | 1 | unless $class->can($method) |