blib/lib/Class/SelfMethods.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 19 | 22 | 86.3 |
line | true | false | branch |
---|---|---|---|
31 | 7 | 1 | unless ($1) |
33 | 6 | 1 | if $method |
41 | 3 | 13 | if ($func =~ s/_SET$//) |
43 | 3 | 0 | unless ($method) |
50 | 2 | 11 | if ($func =~ s/_CLEAR$//) |
52 | 2 | 0 | unless ($method) |
60 | 6 | 5 | if (exists $$self{$func} or UNIVERSAL::can($self, $undercall)) |
62 | 3 | 3 | unless ($method) |
65 | 16 | 8 | if (exists $_[0]{$func}) { } |
66 | 4 | 12 | if (ref $_[0]{$func} eq 'CODE') { } |
88 | 0 | 5 | if ($i =~ /^_/) |