Branch Coverage

blib/lib/Net/IMP/Filter.pm
Criterion Covered Total %
branch 51 114 44.7


line true false branch
27 0 0 if $Net::IMP::Filter::DEBUG
33 0 0 if $Net::IMP::Filter::DEBUG
43 0 0 if $Net::IMP::Filter::DEBUG
49 0 0 if $Net::IMP::Filter::DEBUG
75 10 0 if ($imp)
85 0 25 if $self->{'dead'}
88 0 25 if $Net::IMP::Filter::DEBUG
90 9 16 if $data eq ''
91 0 25 unless $self->{'imp'}
97 50 0 unless my $maxoff = $self->{$w}[$dir]
98 0 0 unless @$buf == 1 and not $buf->[0][2]
99 0 0 if ($maxoff == -1 or $maxoff > $buf->[-1][0] + length($data))
101 0 0 if $Net::IMP::Filter::DEBUG
105 0 0 if ($w eq 'prepass') { }
0 0 elsif ($data eq '' and $maxoff != -1) { }
118 0 0 if ($type > 0 and $canfw != length $data)
124 0 0 if $Net::IMP::Filter::DEBUG
130 0 0 if ($w eq 'prepass') { }
139 12 13 if (not $buf->[-1][2]) { }
12 1 elsif ($type < 0 and $buf->[-1][2] == $type) { }
155 0 25 if $Net::IMP::Filter::DEBUG
164 0 68 if $self->{'dead'}
169 0 71 if $Net::IMP::Filter::DEBUG
171 0 71 if ($rtype == 4352) { }
0 71 elsif ($rtype == 4354) { }
0 71 elsif ($rtype == 1) { }
0 71 elsif ($rtype == 4) { }
40 31 elsif ($rtype ~~ [4097, 4099]) { }
31 0 elsif ($rtype == 4113) { }
0 0 elsif ($rtype ~~ [16, 17]) { }
192 0 40 if $Net::IMP::Filter::DEBUG
194 0 40 if ($self->{'pass'}[$dir] == -1) { }
40 0 elsif ($rtype == 4097) { }
0 0 elsif ($offset == -1 or $offset > $self->{'pass'}[$dir] and $offset > $self->{'prepass'}[$dir]) { }
197 9 31 if ($offset == -1) { }
31 0 elsif ($offset > $self->{'pass'}[$dir]) { }
203 31 0 if $offset >= $self->{'prepass'}[$dir]
224 10 22 if ($offset == -1 or $offset >= $end) { }
0 22 elsif ($offset < $buf0->[0]) { }
1 21 elsif ($offset == $buf0->[0]) { }
21 0 elsif ($buf0->[2] < 0) { }
226 0 10 if $Net::IMP::Filter::DEBUG
229 9 1 unless (@$buf)
231 9 0 if $self->{'eof'}[$dir]
235 0 0 if $Net::IMP::Filter::DEBUG
244 0 21 if $Net::IMP::Filter::DEBUG
254 0 0 if $Net::IMP::Filter::DEBUG
261 31 9 if ($offset != -1 and $offset <= $end)
263 31 0 $rtype == 4097 ? :
268 0 31 if $Net::IMP::Filter::DEBUG
270 0 31 if ($self->{'pass'}[$dir] or $self->{'prepass'}[$dir])
278 0 31 if ($eob < $offset) { }
3 28 elsif ($eob == $offset) { }
282 0 3 if $Net::IMP::Filter::DEBUG
285 3 0 unless @$buf
287 0 28 if $buf0->[2] > 0
289 0 28 if $Net::IMP::Filter::DEBUG