Branch Coverage

blib/lib/Parse/IRC.pm
Criterion Covered Total %
branch 22 82 26.8


line true false branch
119 8 0 if (my($prefix, $command, $middles, $trailing) = $raw_line =~ /$irc_regex/) { }
121 8 0 if $prefix
123 8 0 if defined $middles or defined $trailing
124 8 0 if defined $middles
125 8 0 if defined $trailing
126 2 0 if ($$self{'ctcp'} and $$event{'command'} =~ /^(PRIVMSG|NOTICE)$/ and $$event{'params'}[1] =~ tr/\cA//)
129 1 0 if ($$self{'public'} and $$event{'command'} eq 'PRIVMSG' and $$event{'params'}[0] =~ /^(\x23|\x26)/)
135 0 0 if $$self{'debug'}
144 2 0 $$line{'command'} eq 'PRIVMSG' ? :
148 0 2 if $$self{'identifymsg'} and $msg =~ /^.ACTION/
153 0 2 unless (defined $ctcp)
154 0 0 if $$self{'debug'}
158 2 0 defined $$line{'prefix'} ? :
165 0 2 unless (($name, $args) = $string =~ /^(\w+)(?: +(.*))?/)
167 0 0 if $$self{'debug'}
168 0 0 if $$self{'debug'}
0 0 defined $nick ? :
173 0 2 if (lc $name eq 'dcc') { }
176 0 0 unless (($dcc_type, $rest) = $args =~ /^(\w+) +(.+)/)
178 0 0 if $$self{'debug'}
179 0 0 if $$self{'debug'}
0 0 defined $nick ? :
187 0 0 unless ($handler)
188 0 0 if $$self{'debug'}
193 0 0 unless (@dcc_args)
195 0 0 if $$self{'debug'}
196 0 0 if $$self{'debug'}
0 0 defined $nick ? :
212 2 0 defined $args ? :
0 2 defined $identified ? :
244 0 0 $identified eq '+' ? :
257 0 2 unless (defined $msg)
265 0 2 if $msg =~ tr/\cA// % 2 != 0
268 0 2 unless $msg =~ tr/\cA//
271 2 0 unless length $chunks[0]
283 2 0 if ($msg =~ /^\001/)
289 0 0 if @chunks
301 0 0 unless (defined $line)
305 0 0 if ($line =~ tr/\000\n\r\cP[]//)
318 0 2 unless (defined $line)
324 0 2 if ($line =~ tr/\cP//)