| line |
true |
false |
branch |
|
38
|
0 |
1 |
unless $self->depth($depth) |
|
44
|
0 |
1 |
unless (ref $self) |
|
49
|
0 |
1 |
unless defined $depth |
|
50
|
0 |
1 |
unless ($depth eq 'fast' or $depth eq 'local' or $depth eq 'full') |
|
67
|
0 |
5 |
unless my $ip = shift() |
|
74
|
1 |
4 |
unless ($ip =~ /^[0-9]\d{0,2}(?:\.[0-9]\d{0,2}){3}$/) |
|
82
|
0 |
4 |
if (scalar grep({$_ > 255;} @quad)) |
|
87
|
0 |
4 |
if $$self{'depth'} eq 'fast' |
|
97
|
0 |
28 |
unless my $domain = lc shift() |
|
100
|
0 |
28 |
if ($domain =~ /[^a-z0-9\.-]/) |
|
103
|
0 |
28 |
if ($domain =~ /\.\./) |
|
106
|
2 |
26 |
if ($domain =~ /^\./) |
|
119
|
2 |
38 |
if (length $element > 63) |
|
124
|
4 |
34 |
if $element =~ /^\d+$/ |
|
127
|
6 |
28 |
unless ($element =~ /^[a-z]/) |
|
132
|
4 |
24 |
unless ($element =~ /[a-z0-9]$/) |
|
137
|
2 |
22 |
if ($element =~ /--/) |
|
142
|
0 |
12 |
if $$self{'depth'} eq 'fast' |
|
156
|
2 |
14 |
$host =~ /^\d+\.\d+\.\d+\.\d+$/ ? : |
|
167
|
0 |
0 |
if ($port =~ /[^0-9]/) |
|
172
|
0 |
0 |
if ($port =~ /^0/) |
|
177
|
0 |
0 |
if ($port > 65535) |