| line |
true |
false |
branch |
|
14
|
1 |
24 |
if scalar @_ < 2 or scalar @_ > 2 or not ref $message or not ref $match or ref $message ne 'HASH' or ref $match ne 'HASH' |
|
28
|
4 |
1 |
if ($match =~ m[^/]) |
|
32
|
2 |
2 |
if ($message =~ /$re/) { } |
|
44
|
21 |
0 |
unless ($ref_message or $ref_match) |
|
45
|
5 |
16 |
if (substr($match, 0, 8) eq ' special') |
|
50
|
0 |
35 |
if ($ref_message eq 'JSON::PP::Boolean' and $ref_match eq 'JSON::PP::Boolean') |
|
53
|
31 |
4 |
if ($ref_message eq 'HASH' and $ref_match eq 'HASH') |
|
57
|
2 |
26 |
unless defined $message |
|
58
|
0 |
26 |
unless defined $match |
|
59
|
4 |
21 |
unless _match($message, $match) |
|
63
|
2 |
2 |
if ($ref_message eq 'ARRAY' and not $ref_match) |
|
65
|
1 |
4 |
if $item eq $match |
|
69
|
2 |
0 |
if ($ref_message eq 'ARRAY' and $ref_match eq 'ARRAY') |
|
73
|
0 |
6 |
unless _match($message, $match) |