| blib/lib/Data/SmartMunge.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 20 | 45.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 3 | 6 | unless (defined $munger) |
| 25 | 3 | 0 | unless wantarray |
| 26 | 0 | 0 | if ref $data eq 'ARRAY' |
| 27 | 0 | 0 | if ref $data eq 'HASH' |
| 32 | 6 | 0 | if (my $handler = $munger_dispatch{$data_ref . '_' . $munger_ref}) { } |
| 34 | 6 | 0 | unless wantarray |
| 35 | 0 | 0 | if ref $result eq 'ARRAY' |
| 36 | 0 | 0 | if ref $result eq 'HASH' |
| 44 | 1 | 1 | unless defined $flags |
| 47 | 1 | 1 | $flags =~ s/g// ? : |