| line |
true |
false |
branch |
|
116
|
8 |
0 |
if (my($prefix, $command, $middles, $trailing) = $raw_line =~ /$irc_regex/x) { } |
|
118
|
8 |
0 |
if $prefix |
|
120
|
8 |
0 |
if defined $middles or defined $trailing |
|
121
|
8 |
0 |
if defined $middles |
|
122
|
8 |
0 |
if defined $trailing |
|
123
|
2 |
0 |
if ($self->{'ctcp'} and $event->{'command'} =~ /^(PRIVMSG|NOTICE)$/ and $event->{'params'}[1] =~ Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.22.0/B/Deparse.pm line 5058.
) |
|
126
|
1 |
0 |
if ($self->{'public'} and $event->{'command'} eq 'PRIVMSG' and $event->{'params'}[0] =~ /^(\x23|\x26)/) |
|
132
|
0 |
0 |
if $self->{'debug'} |
|
141
|
2 |
0 |
$line->{'command'} eq 'PRIVMSG' ? : |
|
145
|
0 |
2 |
if $self->{'identifymsg'} and $msg =~ /^.ACTION/ |
|
150
|
0 |
2 |
unless (defined $ctcp) |
|
151
|
0 |
0 |
if $self->{'debug'} |
|
155
|
2 |
0 |
defined $line->{'prefix'} ? : |
|
162
|
0 |
2 |
unless (($name, $args) = $string =~ /^(\w+)(?: +(.*))?/) |
|
164
|
0 |
0 |
if $self->{'debug'} |
|
165
|
0 |
0 |
if $self->{'debug'} |
|
|
0 |
0 |
defined $nick ? : |
|
170
|
0 |
2 |
if (lc $name eq 'dcc') { } |
|
173
|
0 |
0 |
unless (($dcc_type, $rest) = $args =~ /^(\w+) +(.+)/) |
|
175
|
0 |
0 |
if $self->{'debug'} |
|
176
|
0 |
0 |
if $self->{'debug'} |
|
|
0 |
0 |
defined $nick ? : |
|
184
|
0 |
0 |
unless ($handler) |
|
185
|
0 |
0 |
if $self->{'debug'} |
|
190
|
0 |
0 |
unless (@dcc_args) |
|
192
|
0 |
0 |
if $self->{'debug'} |
|
193
|
0 |
0 |
if $self->{'debug'} |
|
|
0 |
0 |
defined $nick ? : |
|
218
|
2 |
0 |
defined $args ? : |
|
|
0 |
2 |
defined $identified ? : |
|
241
|
0 |
0 |
$identified eq '+' ? : |
|
254
|
0 |
2 |
unless (defined $msg) |
|
262
|
0 |
2 |
if Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.22.0/B/Deparse.pm line 5058.
% 2 != 0 |
|
265
|
0 |
2 |
unless Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.22.0/B/Deparse.pm line 5058. |
|
268
|
2 |
0 |
unless length $chunks[0] |
|
280
|
2 |
0 |
if ($msg =~ /^\001/) |
|
286
|
0 |
0 |
if @chunks |
|
298
|
0 |
0 |
unless (defined $line) |
|
302
|
0 |
0 |
if (Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.22.0/B/Deparse.pm line 5058.
) |
|
315
|
0 |
2 |
unless (defined $line) |
|
321
|
0 |
2 |
if (Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.22.0/B/Deparse.pm line 5058.
) |