Branch Coverage

blib/lib/POE/Filter/IRCv3.pm
Criterion Covered Total %
branch 50 62 80.6


line true false branch
8 2 0 if (eval { do { require POE::Filter; 1 } })
54 2 2 if defined $value
60 1 1 if defined $value
72 1 0 @{$$self[2];} ? :
78 0 39 if $_[0][1]
79 36 3 if (my $event = parse_one_line($raw_line)) { }
91 2 0 if (my $raw_line = shift @{$$self[2];})
92 0 2 if $$self[1]
93 2 0 if (my $event = parse_one_line($raw_line)) { }
112 21 0 if (ref $event eq 'HASH') { }
116 4 17 if (exists $$event{'tags'} and my(@tags) = %{$$event{'tags'};})
120 6 2 if (defined $thisval)
126 6 33 exists $CharToEscapedTag{$ch} ? :
130 4 4 if @tags
135 12 9 if $$event{'prefix'}
138 17 4 if ($$event{'params'} and my(@params) = @{$$event{'params'};})
145 3 5 defined $$event{'colonify'} ? :
5 3 if index($param, ' ') != -1 or index($param, ':') == 0 or defined $$event{'colonify'} ? $$event{'colonify'} : $$self[0]
156 0 21 if $$self[1]
159 0 0 if ref $event eq 'SCALAR'
178 21 21 if (substr($raw_line, 0, 1) eq '@')
179 0 21 unless (my $nextsp = index($raw_line, ' ')) > 0
184 28 13 if (defined $thisval)
189 12 118 if ($ch eq '\\') { }
191 10 2 if (exists $EscapedTagToChar{$pair}) { }
208 26 16 if (substr($raw_line, $pos, 1) eq ':')
210 3 23 unless ($nextsp = index($raw_line, ' ', $pos)) > 0 and length($event{'prefix'} = substr($raw_line, $pos + 1, $nextsp - $pos - 1))
218 8 31 if (($nextsp_maybe = index($raw_line, ' ', $pos)) == -1)
221 8 0 length $cmd ? :
234 21 33 if (substr($raw_line, $pos, 1) eq ':')
238 9 24 if ((my $nextsp = index($raw_line, ' ', $pos)) == -1) { }