| File: | local/lib/perl5/Test/Exception.pm |
| Coverage: | 3.1% |
| line | % | coverage | branch | |
|---|---|---|---|---|
| 16 | 50 | T | F | if (@_) |
| 89 | 0 | T | F | if (caller() eq 'DB') { } |
| 92 | 0 | T | F | if (wantarray) |
| 93 | 0 | T | F | if (not @_) { } |
| 120 | 0 | T | F | if (wantarray and not @_) { } |
| 149 | 0 | T | F | unless _is_exception($exception) |
| 151 | 0 | T | F | if $class and not "$exception" =~ /^\Q$class\E/ |
| 211 | 0 | T | F | unless (defined $expecting) |
| 215 | 0 | T | F | unless defined $description |
| 221 | 0 | T | F | $regex ? : |
| 222 | 0 | T | F | ref $expecting ? : |
| 225 | 0 | T | F | unless ($ok) |
| 299 | 0 | T | F | unless $ok |
| 342 | 0 | T | F | unless defined $_[2] |
| 346 | 0 | T | F | if eval { do { &$test() } } |
| 349 | 0 | T | F | if (_is_exception($exception)) |