| blib/lib/Sub/Params.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 12 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 25 | 0 | 6 | unless $args |
| 26 | 1 | 5 | unless @$args |
| 27 | 1 | 4 | unless @$names |
| 40 | 1 | 0 | if @$args == 1 and XXX and eval { do { (%params) = %{$args->[0];}; 1 } } |
| 46 | 1 | 2 | if @$args % 2 == 0 and eval { do { (%params) = @$args; 1 } } |
| 52 | 2 | 0 | if @$args <= @$names and do { @params{@$names} = @$args; 1 } |