| line |
true |
false |
branch |
|
144
|
124 |
0 |
if ref $self{'chantypes'} ne 'ARRAY' |
|
160
|
0 |
0 |
if (defined $flag) |
|
169
|
0 |
180 |
if ref $ref ne 'ARRAY' or not @{$ref;} |
|
183
|
0 |
0 |
$identified eq '+' ? : |
|
189
|
707 |
2606 |
unless my $line = shift @{$$self{'BUFFER'};} |
|
191
|
0 |
2606 |
if (ref $line ne 'HASH' or not $line->{'command'} or not $line->{'params'}) |
|
192
|
0 |
0 |
if $self->{'debug'} |
|
196
|
34 |
84 |
if ($line->{'command'} =~ /^PRIVMSG|NOTICE$/ and $line->{'params'}[1] =~ Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5203.
) |
|
206
|
2123 |
6076 |
if ($event->{'name'} =~ /$cmd/) |
|
213
|
358 |
91 |
if $line->{'prefix'} |
|
251
|
0 |
34 |
unless (defined $msg) |
|
259
|
1 |
33 |
if Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5203.
% 2 != 0 |
|
262
|
1 |
33 |
unless Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5203. |
|
265
|
33 |
0 |
unless length $chunks[0] |
|
277
|
33 |
0 |
if ($msg =~ /^\001/) |
|
283
|
1 |
0 |
if @chunks |
|
301
|
28 |
6 |
$line->{'command'} eq 'PRIVMSG' ? : |
|
305
|
0 |
34 |
if $self->{'identifymsg'} and $msg =~ /^.ACTION/ |
|
310
|
1 |
33 |
unless (defined $ctcp) |
|
311
|
0 |
1 |
if $self->{'debug'} |
|
315
|
30 |
3 |
defined $line->{'prefix'} ? : |
|
322
|
0 |
33 |
unless (($name, $args) = $string =~ /^(\w+)(?: +(.*))?/) |
|
324
|
0 |
0 |
if $self->{'debug'} |
|
325
|
0 |
0 |
if $self->{'debug'} |
|
|
0 |
0 |
defined $nick ? : |
|
330
|
11 |
22 |
if (lc $name eq 'dcc') { } |
|
333
|
0 |
11 |
unless (($dcc_type, $rest) = $args =~ /^(\w+) +(.+)/) |
|
335
|
0 |
0 |
if $self->{'debug'} |
|
336
|
0 |
0 |
if $self->{'debug'} |
|
|
0 |
0 |
defined $nick ? : |
|
344
|
0 |
11 |
unless ($handler) |
|
345
|
0 |
0 |
if $self->{'debug'} |
|
350
|
0 |
11 |
unless (@dcc_args) |
|
352
|
0 |
0 |
if $self->{'debug'} |
|
353
|
0 |
0 |
if $self->{'debug'} |
|
|
0 |
0 |
defined $nick ? : |
|
378
|
16 |
6 |
defined $args ? : |
|
|
0 |
22 |
defined $identified ? : |
|
404
|
0 |
27 |
unless (defined $line) |
|
408
|
0 |
27 |
if (Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5203.
) |
|
421
|
0 |
34 |
unless (defined $line) |
|
427
|
0 |
34 |
if (Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5203.
) |