Branch Coverage

blib/lib/Biblio/Refbase.pm
Criterion Covered Total %
branch 75 132 56.8


line true false branch
105 0 3 if @_ % 2
111 3 27 if (defined(my $value = delete $conf{$_}))
118 3 0 if defined $version
121 3 0 unless ($self->ua)
122 3 0 unless (defined $conf{'agent'})
124 3 0 if defined $version
127 3 0 unless exists $conf{'env_proxy'}
158 3 8 if (@_)
169 3 8 if (@_)
192 6 10 if (@_)
194 2 4 unless ref $ua and $ua->isa('LWP::UserAgent')
215 1 2 if (%args)
225 1 3 if @_ % 2
232 3 0 unless defined $show
236 3 0 if (%args)
243 0 0 $$upload{'uploadFile'} ? :
249 0 0 unless ($response->is_error)
250 0 0 if (defined(my $location = $response->header('location'))) { }
0 0 elsif (index(${$response->content_ref;}, scalar 'you have no permission') == 0) { }
251 0 0 if ($location =~ /^(${\'show.php';}\?)/o) { }
255 0 0 if ($show) { }
261 0 0 $$q{'headerMsg'} ? :
262 0 0 if $$q{'records'}
288 0 1 if @_ % 2
359 1 8 unless defined $name and length $name
360 7 1 if (defined(my $format = $_formats{_normalize_format_name($name)}))
370 7 2 unless defined $name and length $name
371 1 1 if (defined(my $style = $_styles{_normalize_style_name($name)}))
390 17 62 if (@_)
405 1 1 if ($response->is_success)
409 0 1 index(${$response->content_ref;}, scalar 'Nothing found') == 0 ? :
423 1 2 $@ ? :
425 1 2 if (defined(my $location = $response->header('location'))) { }
1 1 elsif ($response->is_success) { }
426 0 1 if ($location =~ /^${\'user_login.php';}(\?|$)/o) { }
0 1 elsif ($location =~ /^${\'error.php';}(\?|$)/o) { }
1 0 elsif ($redirect) { }
432 0 0 if ($relogin > $failed++) { }
0 0 elsif ($relogin < 1) { }
447 0 0 $$q{'headerMsg'} ? :
448 0 0 if $$q{'errorMsg'}
459 0 1 if (index(${$response->content_ref;}, scalar 'The following error occurred') == 0) { }
0 1 elsif (index(${$response->content_ref;}, scalar 'Your query:') == 0) { }
483 0 3 if (@_)
487 2 1 unless ($_sessions{$url}{$user})
492 1 1 if ($response->is_redirect and my $cookie = $response->header('set-cookie')) { }
496 1 0 unless ($response->is_error)
515 0 8 if substr($url, -1) ne '/'
516 0 8 unless $url =~ m[^https?://]
519 8 0 unless defined $relogin
520 0 8 defined $relogin && $relogin =~ /(\d+)/ ? :
548 0 96 if (defined(my $value = delete $$args{$_}))
552 6 0 unless %param
557 6 0 if (not exists $$args{'style'} or defined(my $style = delete $$args{'style'}))
558 0 6 if (defined($style = $self->_style($style)))
564 1 17 if (my $value = delete $$args{$_} || $self->$_)
569 0 18 if (my $value = delete $$args{$_})
574 0 6 if (delete $$args{'showquery'})
577 0 6 if (defined(my $showlinks = delete $$args{'showLinks'}))
578 0 0 if $showlinks eq '0'
591 2 2 if (defined(my $content = delete $$args{'content'})) { }
1 1 elsif (defined(my $source_ids = delete $$args{'source_ids'})) { }
596 0 1 ref $source_ids eq 'ARRAY' ? :
605 0 3 if (delete $$args{'skipbad'})
608 0 3 if (defined(my $only = delete $$args{'only'}))
642 1 1 if (@_)