| blib/lib/Regexp/Tr.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 18 | 44.4 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 0 | 1 | unless defined $from |
| 31 | 0 | 1 | unless defined $to |
| 32 | 1 | 0 | unless defined $mods |
| 41 | 0 | 0 | unless (scalar @_called and $from eq $_called[0] and $to eq $_called[1] and $mods eq $_called[2]) |
| 51 | 0 | 1 | if $@ |
| 62 | 0 | 2 | unless my $ref = shift() |
| 65 | 0 | 2 | if (not $reftype) { } |
| 0 | 2 | elsif ($reftype ne 'SCALAR') { } | |
| 80 | 0 | 1 | wantarray ? : |