| lib/HATX.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 35 | 36 | 97.2 |
| line | true | false | branch |
|---|---|---|---|
| 91 | 14 | 16 | if ref $obj eq "HASH" |
| 92 | 16 | 14 | if ref $obj eq "ARRAY" |
| 104 | 30 | 3 | if defined $obj |
| 152 | 5 | 12 | if defined $o->{'H'} |
| 153 | 11 | 1 | if defined $o->{'A'} |
| 203 | 2 | 3 | if (defined $o->{'H'}) |
| 211 | 3 | 2 | if (defined $o->{'A'}) |
| 265 | 2 | 2 | if (defined $o->{'H'}) |
| 268 | 4 | 2 | unless &$fn($k, $o->{'H'}{$k}, @args) |
| 271 | 2 | 2 | if (defined $o->{'A'}) |
| 274 | 2 | 4 | if &$fn($v, @args) |
| 308 | 1 | 4 | if (defined $o->{'H'}) |
| 311 | 4 | 1 | if (defined $o->{'A'}) |
| 313 | 3 | 1 | defined $fn ? : |
| 348 | 0 | 1 | unless ref $o->{'A'} eq "ARRAY" |
| 384 | 2 | 1 | if (defined $o->{'H'}) { } |
| 437 | 2 | 2 | if (defined $o->{'H'}) |
| 444 | 2 | 2 | if (defined $o->{'A'}) |