| blib/lib/Object/Dumb.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 14 | 92.8 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 3 | 1 | unless exists $o->{'returns'} |
| 20 | 7 | 4 | if ($self->{'methods'}) |
| 22 | 3 | 4 | if (ref $self->{'methods'} eq 'ARRAY') { } |
| 4 | 0 | elsif (ref $self->{'methods'} eq 'Regexp') { } | |
| 23 | 2 | 1 | if grep {$_ eq $meth;} @{$$self{'methods'};} |
| 25 | 3 | 1 | if $meth =~ /$self->{'methods'}/ |
| 27 | 2 | 5 | unless $known |