| line |
true |
false |
branch |
|
143
|
124 |
0 |
if ref $self{'chantypes'} ne "ARRAY" |
|
159
|
0 |
0 |
if (defined $flag) |
|
168
|
0 |
181 |
if ref $ref ne "ARRAY" or not @{$ref;} |
|
182
|
0 |
0 |
$identified eq '+' ? : |
|
188
|
715 |
2588 |
unless my $line = shift @{$$self{"BUFFER"};} |
|
190
|
0 |
2588 |
if (ref $line ne "HASH" or not $line->{'command'} or not $line->{'params'}) |
|
191
|
0 |
0 |
if $self->{'debug'} |
|
195
|
34 |
84 |
if ($line->{'command'} =~ /^PRIVMSG|NOTICE$/ and $line->{'params'}[1] =~ tr/\cA//) |
|
205
|
2107 |
6997 |
if ($event->{'name'} =~ /$cmd/) |
|
212
|
356 |
91 |
if $line->{'prefix'} |
|
250
|
0 |
34 |
unless (defined $msg) |
|
258
|
1 |
33 |
if $msg =~ tr/\cA// % 2 != 0 |
|
261
|
1 |
33 |
unless $msg =~ tr/\cA// |
|
264
|
33 |
0 |
unless length $chunks[0] |
|
276
|
33 |
0 |
if ($msg =~ /^\001/) |
|
282
|
1 |
0 |
if @chunks |
|
300
|
28 |
6 |
$line->{'command'} eq 'PRIVMSG' ? : |
|
304
|
0 |
34 |
if $self->{'identifymsg'} and $msg =~ /^.ACTION/ |
|
309
|
1 |
33 |
unless (defined $ctcp) |
|
310
|
0 |
1 |
if $self->{'debug'} |
|
314
|
30 |
3 |
defined $line->{'prefix'} ? : |
|
321
|
0 |
33 |
unless (($name, $args) = $string =~ /^(\w+)(?: +(.*))?/) |
|
323
|
0 |
0 |
if $self->{'debug'} |
|
324
|
0 |
0 |
if $self->{'debug'} |
|
|
0 |
0 |
if (defined $nick) { } |
|
329
|
11 |
22 |
if (lc $name eq 'dcc') { } |
|
332
|
0 |
11 |
unless (($dcc_type, $rest) = $args =~ /^(\w+) +(.+)/) |
|
334
|
0 |
0 |
if $self->{'debug'} |
|
335
|
0 |
0 |
if $self->{'debug'} |
|
|
0 |
0 |
if (defined $nick) { } |
|
343
|
0 |
11 |
unless ($handler) |
|
344
|
0 |
0 |
if $self->{'debug'} |
|
349
|
0 |
11 |
unless (@dcc_args) |
|
351
|
0 |
0 |
if $self->{'debug'} |
|
352
|
0 |
0 |
if $self->{'debug'} |
|
|
0 |
0 |
if (defined $nick) { } |
|
377
|
16 |
6 |
defined $args ? : |
|
|
0 |
22 |
defined $identified ? : |
|
403
|
0 |
27 |
unless (defined $line) |
|
407
|
0 |
27 |
if ($line =~ tr/\000\n\r\cP[]//) |
|
420
|
0 |
34 |
unless (defined $line) |
|
426
|
0 |
34 |
if ($line =~ tr/\cP//) |