Branch Coverage

blib/lib/IRC/Toolkit/CTCP.pm
Criterion Covered Total %
branch 20 38 52.6


line true false branch
30 0 1 unless defined $line
32 0 1 if ($line =~ tr/\000\n\r\cP[]//)
42 0 5 unless defined $line
44 0 5 if ($line =~ tr/\cP//)
48 0 5 if $line =~ tr/\cA// % 2 != 0
50 3 2 unless $line =~ tr/\cA//
53 2 0 unless length $chunks[0]
64 2 0 if (index($line, "\cA") == 0)
70 0 0 if @chunks
79 4 0 unless (blessed $input and $input->isa('IRC::Message::Object'))
80 1 3 ref $input ? :
84 3 1 uc $input->command eq 'PRIVMSG' ? :
87 2 2 unless $unquoted and @{$$unquoted{'ctcp'};}
92 0 2 unless $name
94 0 2 if ($name eq 'dcc') { }
98 0 0 unless $dcc_type
99 0 0 $input->prefix ? :
109 2 0 $input->prefix ? :
2 0 defined $params ? :