| line |
true |
false |
branch |
|
185
|
0 |
22 |
unless $normalOpts{'BASEURL'} |
|
191
|
1 |
21 |
if ($normalOpts{'USERAGENT'}) { } |
|
200
|
1 |
21 |
if ($normalOpts{'DUMPDIR'}) |
|
202
|
0 |
1 |
unless -d $dir |
|
234
|
5 |
1 |
if $identity->{'error'} |
|
240
|
0 |
1 |
if ($@) |
|
272
|
1 |
1 |
defined $opts{$_} ? : |
|
276
|
0 |
2 |
if $list->{'error'} |
|
282
|
0 |
2 |
if ($@) |
|
337
|
0 |
9 |
unless defined $opts{'identifier'} |
|
339
|
0 |
9 |
unless exists $opts{'metadataPrefix'} |
|
341
|
0 |
3 |
if $opts{'recordHandler'} and $opts{'metadataHandler'} |
|
346
|
18 |
0 |
defined $opts{$_} ? : |
|
353
|
0 |
9 |
if $record->{'error'} |
|
359
|
0 |
9 |
if ($@) |
|
464
|
0 |
9 |
unless exists $opts{'metadataPrefix'} or defined $opts{'resumptionToken'} |
|
466
|
0 |
2 |
if $opts{'recordHandler'} and $opts{'metadataHandler'} |
|
471
|
12 |
33 |
defined $opts{$_} ? : |
|
478
|
0 |
9 |
if $list->{'error'} |
|
485
|
0 |
9 |
if ($@) |
|
488
|
7 |
2 |
$token->token ? : |
|
546
|
0 |
6 |
unless exists $opts{'metadataPrefix'} or defined $opts{'resumptionToken'} |
|
550
|
9 |
21 |
defined $opts{$_} ? : |
|
554
|
0 |
6 |
if $list->{'error'} |
|
561
|
0 |
6 |
if ($@) |
|
564
|
5 |
1 |
$token->token ? : |
|
608
|
0 |
1 |
defined $opts{$_} ? : |
|
612
|
0 |
1 |
if $list->{'error'} |
|
619
|
0 |
1 |
if ($@) |
|
622
|
0 |
1 |
$token->token ? : |
|
642
|
0 |
0 |
if ($url) |
|
662
|
22 |
1 |
if ($ua) |
|
663
|
0 |
22 |
unless $ua->isa('LWP::UserAgent') |
|
676
|
2 |
31 |
if ($self->{'dumpDir'}) { } |
|
690
|
5 |
28 |
if ($response->is_error) |
|
706
|
28 |
0 |
if (my $ct = $response->header('Content-Type')) |
|
708
|
0 |
28 |
unless ($ct =~ m[^text/xml(;|$)]) |
|
715
|
28 |
0 |
if ($ct =~ /; charset=(\S+)/) |
|
717
|
0 |
28 |
unless $cs =~ /^utf-8/i |
|
737
|
0 |
30 |
if $@ |
|
739
|
30 |
0 |
if ($parser and ref $parser) |
|
747
|
0 |
0 |
if $@ |
|
748
|
0 |
0 |
if ($parser and ref $parser) |
|
766
|
206 |
13 |
if (ref $package_or_instance) { } |
|
767
|
0 |
206 |
unless $package_or_instance->isa('XML::SAX::Base') |
|
772
|
0 |
13 |
if $@ |
|
775
|
0 |
13 |
unless grep {'XML::SAX::Base';} eval '@' . $package_or_instance . '::ISA' |
|
782
|
6642 |
0 |
unless $DEBUG |