| blib/lib/Modern/Perl/Prelude.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 22 | 22 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 69 | 5 | 9 | if $config->{'utf8'} |
| 72 | 2 | 12 | if $config->{'class'} |
| 75 | 2 | 12 | if $config->{'defer'} |
| 78 | 2 | 12 | if $config->{'corinna'} |
| 102 | 9 | 18 | unless @args |
| 104 | 8 | 10 | if (@args == 1 and ref $args[0] eq "HASH") |
| 116 | 1 | 14 | if ref $arg |
| 120 | 2 | 12 | unless $KNOWN_FLAG{$arg} |
| 135 | 1 | 9 | unless $KNOWN_HASH_KEY{$key} |
| 145 | 2 | 3 | if $config->{'class'} and $config->{'corinna'} |
| 156 | 2 | 4 | if (ref $opts eq 'HASH') { } |