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'}) |