Branch Coverage

blib/lib/Net/OAI/Harvester.pm
Criterion Covered Total %
branch 55 86 63.9


line true false branch
181 0 17 unless $normalOpts{'BASEURL'}
187 1 16 if ($normalOpts{'USERAGENT'}) { }
196 1 16 if ($normalOpts{'DUMPDIR'})
198 0 1 unless -d $dir
230 2 2 if $identity->errorCode
237 0 2 if ($@)
238 0 2 $token->token ? :
268 1 1 if ($opts{'identifier'})
274 0 2 if $list->errorCode
281 0 2 if ($@)
282 0 2 $token->token ? :
319 0 3 unless exists $opts{'identifier'}
321 0 3 unless exists $opts{'metadataPrefix'}
325 1 2 if (exists $opts{'metadataHandler'}) { }
341 0 3 if $record->errorCode
348 0 3 if ($@)
424 0 1 unless exists $opts{'metadataPrefix'} or exists $opts{'resumptionToken'}
432 8 17 if (exists $opts{$_})
441 0 5 if $list->errorCode
448 0 5 if ($@)
451 4 1 $token->token ? :
497 0 2 unless exists $opts{'metadataPrefix'} or exists $opts{'resumptionToken'}
503 10 25 if (exists $opts{$_})
510 0 7 if $list->errorCode
517 0 7 if ($@)
518 5 2 $token->token ? :
555 0 1 if (exists $opts{'resumptionToken'})
562 0 1 if $list->errorCode
569 0 1 if ($@)
571 0 1 $token->token ? :
589 0 0 if ($url)
593 0 0 if ($c and $c =~ /^([^\?]*)\?/)
608 17 1 if ($ua)
609 0 17 if ref $ua ne 'LWP::UserAgent'
624 2 20 if ($$self{'dumpDir'}) { }
640 2 20 if ($response->is_error)
668 21 1 if $@
670 1 21 if ($parser and ref $parser)
678 0 21 if $@
679 21 0 if ($parser and ref $parser)
698 0 6 if $@
701 0 6 unless grep {'XML::SAX::Base';} eval '@' . $package . '::ISA'
708 0 6683 if ($DEBUG)