| line |
true |
false |
branch |
|
43
|
2 |
7 |
unless my $api_key = $args{'api_key'} |
|
46
|
1 |
6 |
if ($args{'eu'} and not $base_url) |
|
76
|
9 |
1 |
defined $ip && length $ip ? : |
|
79
|
4 |
6 |
if (my $fields = $opts{'fields'}) |
|
80
|
3 |
1 |
ref $fields eq 'ARRAY' ? : |
|
97
|
1 |
9 |
unless defined $ip and length $ip |
|
98
|
1 |
8 |
unless defined $field and length $field |
|
99
|
3 |
5 |
unless $PATH_FIELDS{$field} |
|
108
|
1 |
4 |
unless ref $ips eq "ARRAY" |
|
110
|
1 |
3 |
if @$ips > 100 |
|
112
|
1 |
2 |
if @$ips == 0 |
|
116
|
1 |
1 |
if (my $fields = $opts{'fields'}) |
|
117
|
1 |
0 |
ref $fields eq 'ARRAY' ? : |
|
210
|
1 |
14 |
if ($status == 599) |
|
217
|
0 |
14 |
if ($@) |
|
223
|
0 |
0 |
if ($status >= 200 and $status < 300) |
|
230
|
6 |
8 |
if ($status >= 400) |
|
241
|
2 |
8 |
unless $VALID_FIELDS{$f} |