blib/lib/Sub/Remove.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 12 | 12 | 100.0 |
line | true | false | branch |
---|---|---|---|
20 | 1 | 4 | unless (defined $sub_name) |
24 | 2 | 2 | unless (defined $class) |
28 | 2 | 2 | unless ($class->can($sub_name)) |
44 | 221 | 29 | unless defined $sub and defined &$sub |
51 | 116 | 29 | unless defined $elem |
59 | 27 | 2 | if ($symbol ne $sub_name) |