| line |
true |
false |
branch |
|
32
|
0 |
0 |
if @_ |
|
50
|
0 |
0 |
unless (($name, $args) = $_ =~ /^(\w+)(?: (.*))?/) |
|
51
|
0 |
0 |
if (lc $name eq 'dcc') { } |
|
53
|
0 |
0 |
unless ($args =~ /^(\w+) (\S+) (\d+) (\d+)(?: (\d+))?$/) |
|
68
|
0 |
0 |
defined $args ? : |
|
75
|
0 |
0 |
if ($text and @$text > 0) |
|
76
|
0 |
0 |
unless $line =~ /^(:\S+ +\w+ +\S+ +)/ |
|
79
|
0 |
0 |
if $self->{'debug'} |
|
108
|
0 |
0 |
unless (defined $line) |
|
112
|
0 |
0 |
if (Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.24.1/B/Deparse.pm line 5050.
) |
|
126
|
0 |
0 |
unless (defined $line) |
|
131
|
0 |
0 |
if (Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.24.1/B/Deparse.pm line 5050.
) |
|
160
|
0 |
0 |
unless (defined $line) |
|
168
|
0 |
0 |
unless Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.24.1/B/Deparse.pm line 5050.
% 2 == 0 |
|
171
|
0 |
0 |
unless Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.24.1/B/Deparse.pm line 5050. |
|
173
|
0 |
0 |
unless ($who, $type, $where, $msg) = $line =~ /^:(\S+) +(\w+) +(\S+) +:?(.*)$/ |
|
176
|
0 |
0 |
unless length $chunks[0] |
|
189
|
0 |
0 |
if ($msg =~ /^\001/) |
|
195
|
0 |
0 |
if @chunks |
|
199
|
0 |
0 |
if ($type eq 'PRIVMSG') { } |