| line |
true |
false |
branch |
|
73
|
0 |
6 |
if ($main->{'pers_addr_list_factory'}) { }
|
|
78
|
6 |
0 |
if ($type =~ /^([_A-Za-z0-9:]+)$/) { }
|
|
85
|
0 |
6 |
unless (eval "\n \t require " . $type . ";\n \$factory = " . $type . "->new();\n 1;\n ")
|
|
86
|
0 |
0 |
$@ ne '' ? :
|
|
90
|
6 |
0 |
if $factory
|
|
97
|
0 |
6 |
if (not defined $factory) { }
|
|
121
|
0 |
6 |
unless (defined $self->{'checker'})
|
|
131
|
5 |
1 |
unless ($entry->{'count'})
|
|
133
|
1 |
4 |
if (defined $origip)
|
|
138
|
0 |
1 |
if (defined $noipent->{'count'} and $noipent->{'count'} > 0)
|
|
150
|
0 |
6 |
if ($entry->{'count'} < 0 or $entry->{'count'} != $entry->{'count'} or $entry->{'totscore'} != $entry->{'totscore'})
|
|
159
|
5 |
1 |
!$entry->{'count'} ? :
|
|
190
|
0 |
5 |
unless (defined $self->{'checker'})
|
|
193
|
0 |
5 |
if ($score != $score)
|
|
246
|
0 |
0 |
unless (defined $self->{'checker'})
|
|
259
|
0 |
0 |
unless (defined $score)
|
|
260
|
0 |
0 |
if ($score != $score)
|
|
274
|
0 |
6 |
unless defined $self->{'checker'}
|
|
285
|
0 |
1 |
if (not defined $origip) { }
|
|
|
1 |
0 |
elsif ($origip =~ /^ (\d{1,3} \. \d{1,3}) \. \d{1,3} \. \d{1,3} $/sx) { }
|
|
|
0 |
0 |
elsif ($origip =~ /:/ and $origip =~ /^ [0-9a-f]{0,4} (?: : [0-9a-f]{0,4} | \. [0-9]{1,3} ){2,9} $/six) { }
|
|
289
|
0 |
1 |
unless defined $mask_len
|
|
291
|
0 |
1 |
if ($mask_len == 32) { }
|
|
|
1 |
0 |
elsif ($mask_len == 16) { }
|
|
297
|
0 |
0 |
if (not defined $origip_obj) { }
|
|
309
|
0 |
0 |
unless defined $mask_len
|
|
311
|
0 |
0 |
if (not defined $origip_obj) { }
|
|
|
0 |
0 |
elsif ('NetAddr::IP'->can('full6')) { }
|
|
320
|
0 |
1 |
if (defined $result and length $result > 39)
|
|
323
|
1 |
0 |
if (defined $result)
|
|
337
|
1 |
6 |
if (defined $origip)
|
|
340
|
6 |
1 |
unless (defined $origip)
|