| blib/lib/Ouch.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 16 | 18 | 88.8 |
| line | true | false | branch |
|---|---|---|---|
| 37 | 6 | 2 | if @_ < 2 |
| 38 | 4 | 3 | if (&blessed($e) and $e->isa('Ouch') and $e->code eq $code) |
| 53 | 6 | 4 | @_ ? : |
| 54 | 5 | 5 | $e ? : |
| 66 | 4 | 2 | @_ ? : |
| 67 | 3 | 3 | if (&blessed($e) and $e->isa('Ouch')) { } |
| 72 | 3 | 0 | if ($message =~ /^(.*)\s+at\s.*line\s\d+./msx) { } |
| 82 | 0 | 2 | @_ ? : |
| 84 | 1 | 1 | if (&blessed($e) and $e->isa('Ouch')) { } |