| blib/lib/Devel/Declare/Interface.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 20 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 0 | 8 | unless $name |
| 21 | 0 | 8 | if $REGISTER{$name} and $REGISTER{$name}[0] ne $rclass |
| 28 | 0 | 32 | unless $name |
| 29 | 0 | 32 | unless ($REGISTER{$name}) |
| 30 | 0 | 0 | if ($name =~ /::/g) |
| 31 | 0 | 0 | if eval "require $name; 1" |
| 36 | 6 | 26 | unless ($REGISTER{$name}[1]) |
| 37 | 0 | 6 | unless eval 'require ' . $REGISTER{$name}[0] . '; 1' |
| 45 | 0 | 7 | unless $for and $name and $parser |
| 49 | 1 | 6 | if ($parser eq 'begin') |