Branch Coverage

blib/lib/WebService/ILS.pm
Criterion Covered Total %
branch 6 84 7.1


line true false branch
138 0 2 if (my $ref = ref $class)
143 2 0 if $class eq 'WebService::ILS'
207 1 1 unless (ref $params)
212 0 2 unless $params = Params::Check::check($self->_get_param_spec, $params)
222 2 0 unless $self->user_agent
325 0 0 unless my $sort = shift()
329 0 0 unless ref $sort
333 0 0 if (exists $xlate_table->{$s}) { }
334 0 0 unless $xlate_table->{$s}
341 0 0 if $camelise
342 0 0 if $d
578 0 0 unless $response->is_success
606 0 0 unless my $die_string = shift()
614 0 0 unless my $die_string = shift()
620 0 0 unless my $die_string = shift()
628 0 0 unless my $request = shift()
633 0 0 if $response->code == 401 and $has_token
644 0 0 unless my $request = shift()
658 0 0 unless $token
685 0 0 unless my $request = shift()
688 0 0 $force_fresh ? :
689 0 0 unless ($token)
694 0 0 unless $token
706 0 0 unless my $response = shift()
710 0 0 unless ($response->is_success)
715 0 0 unless $content_type and $content_type =~ m[application/json]u
717 0 0 unless my $content = $response->decoded_content
722 0 0 $content ? :
723 0 0 if $@
725 0 0 unless $success_callback
730 0 0 if $@
736 0 0 unless my $response = shift()
740 0 0 if ($content_type and $content_type =~ m[application/json]u)
741 0 0 unless my $content = $response->decoded_content
745 0 0 if $@
747 0 0 if ($error_callback)
761 0 0 unless my $process_sub = shift()
762 0 0 unless my $request = shift()
763 0 0 unless my $response = shift()
765 0 0 unless $DEBUG
769 0 0 if $@
782 0 0 defined $val ? :