Branch Coverage

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


line true false branch
11 2 0 if (eval { do { require POE::Filter; 1 } })
55 2 2 defined $_[1] ? :
56 1 1 defined $_[1] ? :
59 1 0 @{$_[0][2];} ? :
64 0 39 if $_[0][1]
65 36 3 if (my $event = parse_one_line($raw_line)) { }
78 2 0 if (my $raw_line = shift @{$$self[2];})
79 0 2 if $$self[1]
80 2 0 if (my $event = parse_one_line($raw_line)) { }
100 21 0 if (ref $event eq 'HASH') { }
106 4 17 if (exists $$event{'tags'} and my(@tags) = %{$$event{'tags'};})
110 6 2 if (defined $thisval)
116 6 33 exists $CharToEscapedTag{$ch} ? :
120 4 4 if @tags
125 12 9 if $$event{'prefix'}
128 17 4 if ($$event{'params'} and my(@params) = @{$$event{'params'};})
135 3 5 defined $$event{'colonify'} ? :
5 3 if index($param, ' ') != -1 or index($param, ':') == 0 or defined $$event{'colonify'} ? $$event{'colonify'} : $$self[0]
146 0 21 if $$self[1]
149 0 0 if ref $event eq 'SCALAR'
168 21 21 if (substr($raw_line, 0, 1) eq '@')
169 0 21 unless (my $nextsp = index($raw_line, ' ')) > 0
174 28 13 if (defined $thisval)
179 12 118 if ($ch eq '\\') { }
181 10 2 exists $EscapedTagToChar{$pair} ? :
195 26 16 if (substr($raw_line, $pos, 1) eq ':')
197 3 23 unless ($nextsp = index($raw_line, ' ', $pos)) > 0 and length($event{'prefix'} = substr($raw_line, $pos + 1, $nextsp - $pos - 1))
205 8 31 if (($nextsp_maybe = index($raw_line, ' ', $pos)) == -1)
208 8 0 length $cmd ? :
221 21 33 if (substr($raw_line, $pos, 1) eq ':')
225 9 24 if ((my $nextsp = index($raw_line, ' ', $pos)) == -1) { }