| blib/lib/perl5i/2/Meta.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 26 | 92.3 |
| line | true | false | branch |
|---|---|---|---|
| 34 | 5 | 1 | wantarray ? : |
| 43 | 18 | 2 | unless $class eq 'UNIVERSAL' |
| 46 | 19 | 1 | wantarray ? : |
| 64 | 2 | 7 | $$opts{'just_mine'} ? : |
| 68 | 5 | 13 | if $exclude{$class} and $class ne $top |
| 73 | 0 | 352 | unless ref \$glob eq 'GLOB' |
| 74 | 146 | 206 | unless my $code = *{$glob;}{'CODE'} |
| 76 | 1 | 205 | if $sig and not $sig->is_method |
| 81 | 2 | 7 | wantarray ? : |
| 122 | 1 | 9 | unless $fq_method |
| 126 | 1 | 8 | unless $class->isa($parent) |
| 135 | 8 | 4 | if $class eq $parent |
| 141 | 8 | 0 | if $code |