Branch Coverage

blib/lib/WebService/Nestoria/Search.pm
Criterion Covered Total %
branch 36 58 62.0


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 812 unless (defined $key and defined $val)
357 127 685 if ($key eq 'warnings')
361 0 685 unless ($ValidateRoutine{$key})
365 661 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 759 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+$/)