| 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
|
30 |
4 |
if ($ref_message eq 'HASH' and $ref_match eq 'HASH') |
|
54
|
2 |
25 |
unless defined $message |
|
55
|
0 |
25 |
unless defined $match |
|
56
|
4 |
20 |
unless _match($message, $match) |
|
60
|
2 |
2 |
if ($ref_message eq 'ARRAY' and not $ref_match) |
|
62
|
1 |
4 |
if $item eq $match |
|
66
|
2 |
0 |
if ($ref_message eq 'ARRAY' and $ref_match eq 'ARRAY') |
|
70
|
0 |
6 |
unless _match($message, $match) |