| line |
true |
false |
branch |
|
30
|
0 |
1 |
unless defined $line |
|
32
|
0 |
1 |
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.
) |
|
42
|
0 |
5 |
unless defined $line |
|
44
|
0 |
5 |
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.
) |
|
48
|
0 |
5 |
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 |
|
50
|
3 |
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. |
|
53
|
2 |
0 |
unless length $chunks[0] |
|
60
|
2 |
0 |
if (index($line, "\cA") == 0) |
|
66
|
0 |
0 |
if @chunks |
|
75
|
4 |
0 |
unless (&blessed($input) and $input->isa('IRC::Message::Object')) |
|
76
|
1 |
3 |
ref $input ? : |
|
80
|
3 |
1 |
uc $input->command eq 'PRIVMSG' ? : |
|
83
|
2 |
2 |
unless $unquoted and @{$unquoted->{'ctcp'};} |
|
88
|
0 |
2 |
unless $name |
|
90
|
0 |
2 |
if ($name eq 'dcc') { } |
|
94
|
0 |
0 |
unless $dcc_type |
|
95
|
0 |
0 |
$input->prefix ? : |
|
105
|
2 |
0 |
$input->prefix ? : |
|
|
2 |
0 |
defined $params ? : |