| blib/lib/define.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 18 | 88.8 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 11 | 0 | if (@_) { } |
| 21 | 1 | 10 | if (ref $_[0] eq 'HASH') { } |
| 38 | 7 | 1 | if (@_) { } |
| 41 | 4 | 3 | if ($Vals{$name}) { } |
| 60 | 0 | 20 | if ($name =~ /^__/ or not $name =~ /^_?[^\W_0-9]\w*\z/ or $Forbidden{$name}) |
| 84 | 2 | 27 | if (defined *{$subname;}{'CODE'}) |
| 88 | 2 | 27 | if (@Vals > 1) { } |
| 24 | 3 | elsif (@Vals == 1) { } | |
| 94 | 18 | 6 | if ($val =~ /^[0-9]+$/) { } |