| line |
true |
false |
branch |
|
23
|
0 |
6 |
length $got > 12 ? : |
|
24
|
0 |
6 |
length $expected > 12 ? : |
|
28
|
0 |
6 |
unless defined $msg |
|
30
|
1 |
5 |
unless ($Test->ok(_is_approx($got, $expected, $tolerance), $msg)) |
|
33
|
0 |
1 |
if (check_type($got) eq 'str' or check_type($expected) eq 'str') |
|
38
|
1 |
0 |
if ($tolerance =~ /^(.+)%$/) { } |
|
56
|
3 |
24 |
if ($num1_type eq 'str' or $num2_type eq 'str') |
|
61
|
24 |
0 |
if ($tolerance =~ /^(.+)%$/) { } |
|
70
|
22 |
2 |
$dist <= $threshold ? : |
|
79
|
6 |
50 |
if $arg eq '' or $unparsed != 0 or $! |
|
87
|
22 |
7 |
if (ref $structure eq '') { } |
|
|
2 |
5 |
elsif (ref $structure eq ref {}) { } |
|
|
5 |
0 |
elsif (ref $structure eq ref []) { } |