| line |
true |
false |
branch |
|
18
|
1 |
9 |
if (@_) |
|
96
|
21 |
51 |
if (caller() eq 'DB') { } |
|
99
|
21 |
0 |
if (wantarray) |
|
100
|
0 |
21 |
if (not @_) { } |
|
127
|
0 |
51 |
if (wantarray and not @_) { } |
|
156
|
2 |
32 |
unless _is_exception($exception) |
|
158
|
9 |
23 |
if $class and not "$exception" =~ /^\Q$class\E/ |
|
218
|
1 |
21 |
unless (defined $expecting) |
|
222
|
11 |
10 |
unless defined $description |
|
228
|
12 |
9 |
$regex ? : |
|
229
|
2 |
7 |
ref $expecting ? : |
|
232
|
9 |
12 |
unless ($ok) |
|
306
|
4 |
2 |
unless $ok |
|
349
|
2 |
1 |
unless defined $_[2] |
|
353
|
2 |
2 |
if eval {
do {
&$test()
}
} |
|
356
|
1 |
1 |
if (_is_exception($exception)) |