| line |
true |
false |
branch |
|
19
|
0 |
1 |
ref $ip eq 'HASH' ? : |
|
|
2 |
1 |
!defined($ip) ? : |
|
31
|
3 |
0 |
unless $self->ua |
|
43
|
3 |
4 |
if @_ > 1 |
|
49
|
2 |
9 |
if @_ > 1 |
|
54
|
0 |
1 |
if @_ > 1 |
|
69
|
1 |
7 |
if (not $chk) { } |
|
|
1 |
6 |
elsif ($chk == 2) { } |
|
|
5 |
1 |
elsif ($chk == 3) { } |
|
84
|
0 |
1 |
unless $response->is_success |
|
88
|
0 |
1 |
if ($WWW::HostipInfo::DEBUG) |
|
97
|
1 |
7 |
unless defined $_[1] and $_[1] =~ /^(\d{1,3})\.(\d{1,3})\.\d{1,3}\.\d{1,3}$/ |
|
98
|
1 |
6 |
if $1 >= 224 |
|
99
|
2 |
1 |
$1 == 172 && $2 >= 16 && $2 <= 31 ? : |
|
|
1 |
3 |
$1 == 192 && $2 == 168 ? : |
|
|
2 |
4 |
$1 == 127 || $1 == 10 ? : |
|
110
|
1 |
5 |
if ($line =~ /^Country: (.+?) \(([A-Z][A-Z])\)$/) { } |
|
|
1 |
4 |
elsif ($line =~ /^City: ([^,]+)(?:, (\w+))?$/) { } |
|
|
0 |
4 |
elsif ($line =~ /^Latitude: (.+)$/) { } |
|
|
0 |
4 |
elsif ($line =~ /^Longitude: (.+)$/) { } |
|
125
|
1 |
0 |
if ($city =~ /^\([uU]nknown [cC]ity/) |
|
128
|
1 |
0 |
if ($name =~ /^\([uU]nknown [cC]ountry/) |