Branch Coverage

blib/lib/Net/IMP/Filter.pm
Criterion Covered Total %
branch 52 116 44.8


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
58 0 10 if (ref $class)
79 10 0 if ($imp)
89 0 25 if $self->{'dead'}
92 0 25 if $Net::IMP::Filter::DEBUG
94 9 16 if $data eq ''
95 0 25 unless $self->{'imp'}
101 50 0 unless my $maxoff = $self->{$w}[$dir]
102 0 0 unless @$buf == 1 and not $buf->[0][2]
103 0 0 if ($maxoff == -1 or $maxoff > $buf->[-1][0] + length($data))
105 0 0 if $Net::IMP::Filter::DEBUG
109 0 0 if ($w eq 'prepass') { }
0 0 elsif ($data eq '' and $maxoff != -1) { }
122 0 0 if ($type > 0 and $canfw != length $data)
128 0 0 if $Net::IMP::Filter::DEBUG
134 0 0 if ($w eq 'prepass') { }
143 12 13 if (not $buf->[-1][2]) { }
12 1 elsif ($type < 0 and $buf->[-1][2] == $type) { }
159 0 25 if $Net::IMP::Filter::DEBUG
168 0 68 if $self->{'dead'}
173 0 71 if $Net::IMP::Filter::DEBUG
175 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]) { }
196 0 40 if $Net::IMP::Filter::DEBUG
198 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]) { }
201 9 31 if ($offset == -1) { }
31 0 elsif ($offset > $self->{'pass'}[$dir]) { }
207 31 0 if $offset >= $self->{'prepass'}[$dir]
228 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) { }
230 0 10 if $Net::IMP::Filter::DEBUG
233 9 1 unless (@$buf)
236 9 0 if $self->{'eof'}[$dir]
240 0 0 if $Net::IMP::Filter::DEBUG
249 0 21 if $Net::IMP::Filter::DEBUG
260 0 0 if $Net::IMP::Filter::DEBUG
267 31 9 if ($offset != -1 and $offset <= $end)
269 31 0 $rtype == 4097 ? :
274 0 31 if $Net::IMP::Filter::DEBUG
276 0 31 if ($self->{'pass'}[$dir] or $self->{'prepass'}[$dir])
284 0 31 if ($eob < $offset) { }
3 28 elsif ($eob == $offset) { }
288 0 3 if $Net::IMP::Filter::DEBUG
291 3 0 unless @$buf
293 0 28 if $buf0->[2] > 0
295 0 28 if $Net::IMP::Filter::DEBUG