Branch Coverage

blib/lib/WebService/Nestoria/Search.pm
Criterion Covered Total %
branch 38 54 70.3


line true false branch
193 8 1 if (defined $args{'Warnings'})
197 8 1 if (defined $args{'warnings'})
207 38 0 if ($GlobalDefaults{'warnings'})
239 15 0 if (defined $val and $val =~ /^[\+\-]?\d+\.?\d*$/) { }
250 13 0 if (defined $val and $val =~ /^[\+\-]?\d+\.?\d*$/) { }
352 14 754 unless (defined $key and defined $val)
356 123 631 if ($key eq 'warnings')
360 0 631 unless ($ValidateRoutine{$key})
364 607 24 if ($ValidateRoutine{$key}($val)) { }
389 0 16 if (@_ % 2 != 0)
396 0 21 if ($key =~ /[A-Z]/)
403 2 14 if (exists $self->{'Defaults'}{'warnings'})
408 9 7 if (exists $self->{'Defaults'}{'country'})
409 0 9 unless (exists $Config{'Urls'}{$self->{'Defaults'}{'country'}})
419 0 10 if ($error)
442 0 142 if (@_ % 2 != 0)
448 0 142 unless (ref $self)
457 0 36 if grep {$key eq $_;} keys %GlobalDefaults
462 426 3408 if (defined $Config{'Defaults'}{$key})
469 38 720 if ($error)
479 0 104 if (defined $args{'number_of_results'} and $args{'number_of_results'} > $Config{'MaxResults'})
502 7 19 unless (ref $self)
506 26 0 if (my $request = $self->request(@_)) { }
531 0 3 unless (ref $self)
537 0 3 unless ($response)
562 6 1 if (defined $response and $response->status_code == 200) { }
603 0 2 unless (ref $self)