| line |
true |
false |
branch |
|
82
|
0 |
1 |
unless my $interval = delete $args{'interval'} |
|
83
|
0 |
1 |
unless my $attempts = delete $args{'attempts'} |
|
88
|
1 |
0 |
if (my $db = delete $args{'database'}) |
|
89
|
1 |
0 |
if (not ref $db) { } |
|
92
|
1 |
0 |
unless (-e $db) |
|
94
|
0 |
1 |
unless Storable::store(\%ips_ports, $db) |
|
100
|
2 |
1 |
if ($save) { } |
|
150
|
2 |
0 |
if (my $m = $self->{'methods'}) |
|
151
|
0 |
2 |
if ($packet->is_response) { } |
|
152
|
0 |
0 |
unless grep {not $_;} @$m |
|
155
|
0 |
2 |
unless grep {$_ eq $met;} @$m |
|
172
|
2 |
0 |
unless $self->{'data'}{$ip}{'0'} |
|
177
|
0 |
2 |
if ($count >= $self->{'attempts'}) |
|
203
|
0 |
1 |
if ($time <= $maxtime) |
|
208
|
0 |
1 |
unless %$ippt |
|
210
|
0 |
1 |
unless %$ipp |
|
212
|
0 |
2 |
if $changed |
|
225
|
0 |
2 |
unless my $dbcb = $self->{'dbcb'} |