line |
true |
false |
branch |
119
|
8 |
0 |
if (my($prefix, $command, $middles, $trailing) = $raw_line =~ /$irc_regex/) { } |
121
|
8 |
0 |
if $prefix |
123
|
8 |
0 |
if defined $middles or defined $trailing |
124
|
8 |
0 |
if defined $middles |
125
|
8 |
0 |
if defined $trailing |
126
|
2 |
0 |
if ($$self{'ctcp'} and $$event{'command'} =~ /^(PRIVMSG|NOTICE)$/ and $$event{'params'}[1] =~ tr/\cA//) |
129
|
1 |
0 |
if ($$self{'public'} and $$event{'command'} eq 'PRIVMSG' and $$event{'params'}[0] =~ /^(\x23|\x26)/) |
135
|
0 |
0 |
if $$self{'debug'} |
144
|
2 |
0 |
$$line{'command'} eq 'PRIVMSG' ? : |
148
|
0 |
2 |
if $$self{'identifymsg'} and $msg =~ /^.ACTION/ |
153
|
0 |
2 |
unless (defined $ctcp) |
154
|
0 |
0 |
if $$self{'debug'} |
158
|
2 |
0 |
defined $$line{'prefix'} ? : |
165
|
0 |
2 |
unless (($name, $args) = $string =~ /^(\w+)(?: +(.*))?/) |
167
|
0 |
0 |
if $$self{'debug'} |
168
|
0 |
0 |
if $$self{'debug'} |
|
0 |
0 |
defined $nick ? : |
173
|
0 |
2 |
if (lc $name eq 'dcc') { } |
176
|
0 |
0 |
unless (($dcc_type, $rest) = $args =~ /^(\w+) +(.+)/) |
178
|
0 |
0 |
if $$self{'debug'} |
179
|
0 |
0 |
if $$self{'debug'} |
|
0 |
0 |
defined $nick ? : |
187
|
0 |
0 |
unless ($handler) |
188
|
0 |
0 |
if $$self{'debug'} |
193
|
0 |
0 |
unless (@dcc_args) |
195
|
0 |
0 |
if $$self{'debug'} |
196
|
0 |
0 |
if $$self{'debug'} |
|
0 |
0 |
defined $nick ? : |
212
|
2 |
0 |
defined $args ? : |
|
0 |
2 |
defined $identified ? : |
244
|
0 |
0 |
$identified eq '+' ? : |
257
|
0 |
2 |
unless (defined $msg) |
265
|
0 |
2 |
if $msg =~ tr/\cA// % 2 != 0 |
268
|
0 |
2 |
unless $msg =~ tr/\cA// |
271
|
2 |
0 |
unless length $chunks[0] |
283
|
2 |
0 |
if ($msg =~ /^\001/) |
289
|
0 |
0 |
if @chunks |
301
|
0 |
0 |
unless (defined $line) |
305
|
0 |
0 |
if ($line =~ tr/\000\n\r\cP[]//) |
318
|
0 |
2 |
unless (defined $line) |
324
|
0 |
2 |
if ($line =~ tr/\cP//) |