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