Branch Coverage

blib/lib/Net/IMP/Pattern.pm
Criterion Covered Total %
branch 55 102 53.9


line true false branch
26 0 0 !$action ? :
0 0 $action eq 'replace' ? :
0 0 $action eq 'reject' ? :
0 0 $action eq 'deny' ? :
43 16 0 if ($rx)
45 0 16 unless $rxlen and $rxlen =~ /^\d+$/ and $rxlen > 0
47 0 16 if (ref $rx ne 'Regexp') { }
0 16 elsif ('' =~ /$rx/) { }
48 0 0 if ref $rx ne 'Regexp'
54 0 16 if (defined $string) { }
0 16 elsif (not $rx) { }
55 0 0 if $rx
60 0 16 if defined $rxdir and not $rxdir ~~ [0, 1]
63 0 16 unless $act and $act ~~ ['deny', 'reject', 'replace']
65 0 16 unless defined delete $args{'actdata'}
79 19 0 if ($rx) { }
99 0 19 if (defined $self->{'rxdir'})
104 0 0 $self->{'rxdir'} ? :
116 0 82 if $offset
119 0 82 if defined $self->{'rxdir'} and $dir != $self->{'rxdir'}
125 24 58 if ($type > 0 or $type != $self->{'buftype'}[$dir]) { }
128 1 23 if ($self->{'buf'}[$dir] ne '') { }
20 3 elsif (not $self->{'buftype'}[$dir] || $type > 0) { }
145 0 82 if $Net::IMP::Pattern::DEBUG
153 34 75 if (my($good, $match) = $buf =~ /\A(.*?)($self->{'rx'})/s) { }
3 72 elsif ($type > 0) { }
24 48 elsif ((my $d = length($buf) - $self->{'rxlen'} + 1) > 0) { }
23 25 elsif ($data eq '') { }
160 0 34 if (length $match > $self->{'rxlen'}) { }
163 0 0 if (substr($match, 0, $self->{'rxlen'}) =~ /\A($self->{'rx'})/) { }
177 23 11 if ($good ne '')
178 0 23 if $Net::IMP::Pattern::DEBUG
182 3 20 if ($type > 0) { }
195 0 34 if ($match eq '') { }
0 34 elsif ($self->{'action'} eq 'deny') { }
0 34 elsif ($self->{'action'} eq 'reject') { }
34 0 elsif ($self->{'action'} eq 'replace') { }
206 0 0 if ($type > 0) { }
218 0 0 if $self->{'actdata'} ne ''
222 3 31 if ($type > 0) { }
239 7 27 if $buf eq ''
244 3 0 if $changed
251 0 24 if $Net::IMP::Pattern::DEBUG
260 0 23 if $Net::IMP::Pattern::DEBUG
272 3 79 if ($type > 0)
273 0 3 if (grep {4352 == $_->[0];} @rv) { }
3 0 elsif ($changed) { }
284 69 13 if (@rv) { }
285 66 3 unless $type > 0
289 0 13 if $Net::IMP::Pattern::DEBUG
296 3 0 if ($cfg{'rx'})