| 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//) |