line |
true |
false |
branch |
194
|
8 |
1 |
if (defined $args{'Warnings'}) |
198
|
8 |
1 |
if (defined $args{'warnings'}) |
208
|
38 |
0 |
if ($GlobalDefaults{'warnings'}) |
240
|
15 |
0 |
if (defined $val and $val =~ /^[\+\-]?\d+\.?\d*$/) { } |
251
|
13 |
0 |
if (defined $val and $val =~ /^[\+\-]?\d+\.?\d*$/) { } |
353
|
14 |
814 |
unless (defined $key and defined $val) |
357
|
127 |
687 |
if ($key eq 'warnings') |
361
|
0 |
687 |
unless ($ValidateRoutine{$key}) |
365
|
663 |
24 |
if ($ValidateRoutine{$key}($val)) { } |
390
|
0 |
22 |
if (@_ % 2 != 0) |
397
|
0 |
53 |
if ($key =~ /[A-Z]/) |
404
|
2 |
20 |
if (exists $self->{'Defaults'}{'warnings'}) |
409
|
22 |
0 |
if (exists $self->{'Defaults'}{'country'}) |
410
|
0 |
22 |
unless (exists $Config{'Urls'}{$self->{'Defaults'}{'country'}}) |
420
|
0 |
29 |
if ($error) |
443
|
0 |
149 |
if (@_ % 2 != 0) |
449
|
0 |
149 |
unless (ref $self) |
458
|
0 |
57 |
if grep {$key eq $_;} keys %GlobalDefaults |
463
|
447 |
3576 |
if (defined $Config{'Defaults'}{$key}) |
470
|
38 |
761 |
if ($error) |
480
|
0 |
111 |
if (defined $args{'number_of_results'} and $args{'number_of_results'} > $Config{'MaxResults'}) |
503
|
0 |
33 |
unless (ref $self) |
507
|
33 |
0 |
if (my $request = $self->request(@_)) { } |
532
|
0 |
10 |
unless (ref $self) |
538
|
0 |
10 |
unless ($response) |
563
|
0 |
0 |
if (defined $response and $response->status_code == 200) { } |
604
|
0 |
9 |
unless (ref $self) |
653
|
0 |
7 |
if (not $UA and $class->can('get')) |
680
|
0 |
7 |
if (not defined $sleep_time || ref $class and $class =~ /^\d+$/) |