| line |
true |
false |
branch |
|
31
|
0 |
0 |
if @_ |
|
49
|
0 |
0 |
unless (($name, $args) = $_ =~ /^(\w+)(?: (.*))?/) |
|
50
|
0 |
0 |
if (lc $name eq 'dcc') { } |
|
52
|
0 |
0 |
unless ($args =~ /^(\w+) (\S+) (\d+) (\d+)(?: (\d+))?$/) |
|
67
|
0 |
0 |
defined $args ? : |
|
74
|
0 |
0 |
if ($text and @$text > 0) |
|
75
|
0 |
0 |
unless $line =~ /^(\S+ +\w+ +\S+ +)/ |
|
78
|
0 |
0 |
if $self->{'debug'} |
|
107
|
0 |
0 |
unless (defined $line) |
|
111
|
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.
) |
|
125
|
0 |
0 |
unless (defined $line) |
|
130
|
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.
) |
|
159
|
0 |
0 |
unless (defined $line) |
|
167
|
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 |
|
170
|
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. |
|
172
|
0 |
0 |
unless ($who, $type, $where, $msg) = $line =~ /^(\S+) +(\w+) +(\S+) +:?(.*)$/ |
|
175
|
0 |
0 |
unless length $chunks[0] |
|
188
|
0 |
0 |
if ($msg =~ /^\001/) |
|
194
|
0 |
0 |
if @chunks |
|
198
|
0 |
0 |
if ($type eq 'P') { } |