| line |
true |
false |
branch |
|
63
|
0 |
0 |
if $msg =~ s/^([a-z0-9_]+)\s*:\s*|^([a-z0-9_]+)$//i |
|
64
|
0 |
0 |
if $msg =~ s/^([a-z0-9_]+)\s*:\s*|^([a-z0-9_]+)$//i |
|
74
|
0 |
0 |
if $DEBUG_SINK |
|
95
|
0 |
0 |
if $DEBUG_SINK |
|
96
|
0 |
0 |
unless $@ |
|
97
|
0 |
0 |
unless (ref $@) |
|
99
|
0 |
0 |
if $DEBUG_SINK |
|
105
|
0 |
0 |
if $DEBUG_SINK |
|
118
|
0 |
0 |
if $DEBUG_SINK |
|
119
|
0 |
0 |
unless $@ |
|
120
|
0 |
0 |
unless @_ |
|
121
|
0 |
0 |
unless (ref $@) |
|
123
|
0 |
0 |
if $DEBUG_SINK |
|
126
|
0 |
0 |
if ($AT =~ /^[A-Z0-9_]+\:/) { } |
|
136
|
0 |
0 |
if $DEBUG_SINK |
|
140
|
0 |
0 |
if $class eq "*" |
|
141
|
0 |
0 |
if uc $class eq $@->{'CLASS'} |
|
143
|
0 |
0 |
if $DEBUG_SINK |
|
149
|
0 |
0 |
if &surface(@_) |
|
186
|
0 |
0 |
if $l > $ml |
|
199
|
0 |
0 |
wantarray ? : |