| blib/lib/Params/Style.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 21 | 22 | 95.4 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 2 | 0 | if ($] >= 5.007) { } |
| 45 | 9 | 41 | if (@_ == 1) { } |
| 48 | 4 | 5 | if (UNIVERSAL::isa($options, 'ARRAY')) { } |
| 3 | 2 | elsif (UNIVERSAL::isa($options, 'HASH')) { } | |
| 49 | 1 | 3 | if (scalar @$options % 2) |
| 52 | 6 | 6 | if ($flip = 1 - $flip) { } |
| 66 | 1 | 40 | if (scalar @_ % 2) |
| 91 | 33 | 62 | if $name =~ /_/ |
| 138 | 1 | 11 | if (UNIVERSAL::isa($style, 'CODE')) { } |
| 10 | 1 | elsif ($style) { } | |
| 141 | 1 | 9 | unless $replace_keys = $replace_func{$style} |