| line |
true |
false |
branch |
|
13
|
0 |
0 |
if defined $arg{$k} |
|
20
|
0 |
0 |
if $$self{'Allow'} |
|
21
|
0 |
0 |
if $$self{'Deny'} |
|
37
|
0 |
0 |
if (defined $$self{'Log'}) { } |
|
47
|
0 |
0 |
if (ref $$self{'socket'} eq 'IO::Socket::INET') |
|
52
|
0 |
0 |
if ($package ne 'Client') { } |
|
53
|
0 |
0 |
unless (defined $$self{'Port'}) |
|
59
|
0 |
0 |
unless (defined $$self{'Port'} and defined $$self{'Server'}) |
|
65
|
0 |
0 |
unless (defined $$self{'socket'}) |
|
76
|
0 |
0 |
unless ref $start eq 'ARRAY' |
|
103
|
0 |
0 |
unless $self->allowed_host($remote) |
|
104
|
0 |
0 |
unless (length $newmsg > 0) |
|
120
|
0 |
0 |
if (defined $$self{'Deny'} and ref $$self{'Deny'}) |
|
122
|
0 |
0 |
if ($$ref{'low'} <= $ip and $ip <= $$ref{'high'}) |
|
128
|
0 |
0 |
if (defined $$self{'Allow'} and ref $$self{'Allow'}) |
|
130
|
0 |
0 |
if ($$ref{'low'} <= $ip and $ip <= $$ref{'high'}) |
|
154
|
0 |
0 |
unless defined $section[$#section] |
|
165
|
0 |
0 |
if ($string =~ /\-/) { } |
|
167
|
0 |
0 |
if ($#ip != 1) |
|
172
|
0 |
0 |
unless ($self->valid_ip($_)) |
|
181
|
0 |
0 |
unless ($self->valid_ip($addr)) |
|
185
|
0 |
0 |
unless defined $mask |
|
201
|
0 |
0 |
if $_[0] =~ /\d{0,3}(\.\d{0,3}){3}/ |
|
216
|
0 |
0 |
unless (unpack 'C', $sects[$pos] & $one) |
|
233
|
0 |
0 |
if $self->valid_ip($mask) |
|
240
|
0 |
0 |
if pop @wank |