| line |
true |
false |
branch |
|
23
|
0 |
2 |
if ($class eq 'Business::MaxMind::HTTPBase') |
|
32
|
2 |
0 |
unless ($$self{'wsIpaddrRefreshTimeout'}) |
|
42
|
0 |
0 |
unless $_[0]{'servers'} |
|
53
|
0 |
0 |
unless open my $fh, ">$filename" |
|
62
|
2 |
0 |
if (-s $$self{'wsIpaddrCacheFile'}) |
|
70
|
0 |
2 |
unless ($ipstr and time - $datetime <= $$self{'wsIpaddrRefreshTimeout'}) |
|
72
|
0 |
0 |
if (my $tryIpstr = $self->readIpAddressFromWeb($ipstr)) { } |
|
75
|
0 |
0 |
if ($$self{'debug'}) |
|
89
|
0 |
0 |
if ($$self{'timeout'} > 0) |
|
94
|
0 |
0 |
if ($response->is_success) |
|
97
|
0 |
0 |
if ($content =~ /^(?:\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3};)*\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}$/) |
|
110
|
2 |
0 |
unless ($$self{'useDNS'}) |
|
113
|
2 |
0 |
if ($ipstr) |
|
117
|
0 |
4 |
if $result |
|
122
|
0 |
6 |
if $result |
|
131
|
0 |
14 |
unless (exists $$self{'allowed_fields'}{$k}) |
|
154
|
0 |
70 |
if $] < 5.007 |
|
155
|
60 |
10 |
utf8::downgrade(my $t = $_[0], 1) ? : |
|
160
|
10 |
0 |
$$self{'isSecure'} ? : |
|
166
|
10 |
0 |
if ($$self{'timeout'} > 0) |
|
172
|
10 |
0 |
if ($$self{'debug'}) |
|
176
|
0 |
10 |
if ($response->is_success) { } |
|
184
|
0 |
0 |
unless (exists $output{$check_field}) |
|
190
|
10 |
0 |
if ($$self{'debug'}) |