| line |
true |
false |
branch |
|
16
|
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' |
|
30
|
4 |
1 |
if ($match =~ m[^/]) |
|
34
|
2 |
2 |
if ($message =~ /$re/) { } |
|
35
|
0 |
2 |
if (%+) |
|
51
|
21 |
0 |
unless ($ref_message or $ref_match) |
|
52
|
5 |
16 |
if (substr($match, 0, 8) eq ' special') |
|
57
|
0 |
35 |
if ($ref_message eq 'JSON::PP::Boolean' and $ref_match eq 'JSON::PP::Boolean') |
|
60
|
31 |
4 |
if ($ref_message eq 'HASH' and $ref_match eq 'HASH') |
|
64
|
2 |
26 |
unless defined $message |
|
65
|
0 |
26 |
unless defined $match |
|
66
|
4 |
21 |
unless _match($message, $match) |
|
70
|
2 |
2 |
if ($ref_message eq 'ARRAY' and not $ref_match) |
|
72
|
1 |
4 |
if $item eq $match |
|
76
|
2 |
0 |
if ($ref_message eq 'ARRAY' and $ref_match eq 'ARRAY') |
|
80
|
0 |
6 |
unless _match($message, $match) |
|
84
|
0 |
0 |
if ($ref_message eq 'ARRAY' and $ref_match eq 'HASH') |
|
89
|
0 |
0 |
unless defined $match->{$item} |