| blib/lib/Defaults/Modern/Define.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 5 | 8 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 20 | 2 | 6 | if (@_) |
| 23 | 0 | 2 | ref $val ? : |
| 27 | 0 | 2 | unless eval $code and not $@ |
| 33 | 0 | 2 | unless my($ws1, $name, $ws2, $equals) = $$line =~ /\A([\n\s]*)(\w+)([\n\s]*)(=\>?)/s |