| line |
true |
false |
branch |
|
57
|
0 |
0 |
if $msg =~ s/^([a-z0-9_]+)\s*:\s*|^([a-z0-9_]+)$//i |
|
58
|
0 |
0 |
if $msg =~ s/^([a-z0-9_]+)\s*:\s*|^([a-z0-9_]+)$//i |
|
68
|
0 |
0 |
if $DEBUG_SINK |
|
89
|
0 |
0 |
if $DEBUG_SINK |
|
90
|
0 |
0 |
unless $@ |
|
91
|
0 |
0 |
unless (ref $@) |
|
93
|
0 |
0 |
if $DEBUG_SINK |
|
99
|
0 |
0 |
if $DEBUG_SINK |
|
112
|
0 |
0 |
if $DEBUG_SINK |
|
113
|
0 |
0 |
unless $@ |
|
114
|
0 |
0 |
unless @_ |
|
115
|
0 |
0 |
unless (ref $@) |
|
117
|
0 |
0 |
if $DEBUG_SINK |
|
120
|
0 |
0 |
if ($AT =~ /^[A-Z0-9_]+\:/) { } |
|
130
|
0 |
0 |
if $DEBUG_SINK |
|
134
|
0 |
0 |
if $class eq '*' |
|
135
|
0 |
0 |
if uc $class eq $@->{'CLASS'} |
|
137
|
0 |
0 |
if $DEBUG_SINK |
|
143
|
0 |
0 |
if &surface(@_) |
|
172
|
0 |
0 |
if $l > $ml |
|
185
|
0 |
0 |
wantarray ? : |