| line |
true |
false |
branch |
|
74
|
0 |
0 |
$old_token && $old_token->{'_n'} ? :
|
|
77
|
0 |
0 |
unless $n < $hits->total
|
|
83
|
0 |
0 |
if ($strategy eq 'paginate' and $hits->more) { }
|
|
|
0 |
0 |
elsif ($strategy eq 'es.scroll' and exists $hits->{'scroll_id'}) { }
|
|
94
|
0 |
0 |
if defined $params->{'set'}
|
|
96
|
0 |
0 |
if defined $params->{'metadataPrefix'}
|
|
97
|
0 |
0 |
if defined $from
|
|
98
|
0 |
0 |
if defined $until
|
|
112
|
0 |
0 |
if ($token)
|
|
113
|
0 |
0 |
if ($strategy eq 'paginate' and exists $token->{'start'}) { }
|
|
|
0 |
0 |
elsif ($strategy eq 'es.scroll' and exists $token->{'scroll_id'}) { }
|
|
135
|
0 |
1 |
if ($setting->{'filter'})
|
|
145
|
0 |
1 |
if ($setting->{'search_strategy'} eq 'es.scroll')
|
|
150
|
0 |
1 |
if ($setting->{'datestamp_pattern'})
|
|
163
|
0 |
1 |
$datestamp_parser ? :
|
|
173
|
2 |
0 |
if (my $fix = $format->{'fix'})
|
|
182
|
1 |
0 |
if (my $list = $setting->{'sets'}) { }
|
|
198
|
0 |
1 |
if (my $icon = $setting->{'collectionIcon'})
|
|
199
|
0 |
0 |
if (my $url = $icon->{'url'})
|
|
220
|
0 |
1 |
if (my $xsl_path = $setting->{'xsl_stylesheet'})
|
|
277
|
1 |
0 |
unless is_array_ref($admin_email)
|
|
284
|
0 |
2 |
unless is_array_ref($i_value)
|
|
383
|
0 |
3 |
unless is_array_ref($set_descriptions)
|
|
398
|
0 |
1 |
if ($fix)
|
|
423
|
6 |
1 |
request()->is_get ? :
|
|
435
|
3 |
4 |
if ($verb and my $spec = $VERBS->{$verb}) { }
|
|
439
|
0 |
3 |
if ($valid->{'resumptionToken'} and exists $params->{'resumptionToken'}) { }
|
|
442
|
0 |
0 |
if (keys %$params > 2)
|
|
451
|
3 |
0 |
if $key eq 'verb'
|
|
452
|
0 |
0 |
unless ($valid->{$key})
|
|
458
|
0 |
0 |
unless (exists $params->{$key})
|
|
469
|
4 |
3 |
if (@$errors)
|
|
475
|
0 |
3 |
if (exists $params->{'resumptionToken'})
|
|
476
|
0 |
0 |
unless (is_string($params->{'resumptionToken'}))
|
|
483
|
0 |
0 |
if ($verb eq 'ListSets') { }
|
|
490
|
0 |
0 |
if defined $token->{'_s'}
|
|
491
|
0 |
0 |
if defined $token->{'_m'}
|
|
492
|
0 |
0 |
if defined $token->{'_f'}
|
|
493
|
0 |
0 |
if defined $token->{'_u'}
|
|
506
|
0 |
3 |
if (exists $params->{'set'})
|
|
507
|
0 |
0 |
unless ($sets)
|
|
510
|
0 |
0 |
unless ($set = $$sets{$params->{'set'}})
|
|
515
|
0 |
3 |
if (exists $params->{'metadataPrefix'})
|
|
516
|
0 |
0 |
unless ($format = $$metadata_formats{$params->{'metadataPrefix'}})
|
|
524
|
0 |
3 |
if (@$errors)
|
|
528
|
0 |
3 |
if ($verb eq 'GetRecord') { }
|
|
|
1 |
2 |
elsif ($verb eq 'Identify') { }
|
|
|
0 |
2 |
elsif ($verb eq 'ListIdentifiers' or $verb eq 'ListRecords') { }
|
|
|
1 |
1 |
elsif ($verb eq 'ListMetadataFormats') { }
|
|
|
1 |
0 |
elsif ($verb eq 'ListSets') { }
|
|
539
|
0 |
0 |
if (defined $rec)
|
|
540
|
0 |
0 |
if ($fix)
|
|
555
|
0 |
0 |
if ($format->{'fix'})
|
|
561
|
0 |
0 |
unless ($vars->{'deleted'} and $setting->{'deletedRecord'} eq 'no')
|
|
598
|
0 |
0 |
unless $datestamp
|
|
599
|
0 |
0 |
unless ($datestamp =~ /^\d{4}-\d{2}-\d{2}(?:T\d{2}:\d{2}:\d{2}Z)?$/)
|
|
610
|
0 |
0 |
if ($from and $until and length $from != length $until)
|
|
618
|
0 |
0 |
if ($from and $until and $from gt $until)
|
|
624
|
0 |
0 |
if ($from and length $from == 10)
|
|
627
|
0 |
0 |
if ($until and length $until == 10)
|
|
634
|
0 |
0 |
if (my $pattern = $setting->{'datestamp_pattern'})
|
|
635
|
0 |
0 |
if $cql_from
|
|
639
|
0 |
0 |
if $cql_until
|
|
645
|
0 |
0 |
if $setting->{'cql_filter'}
|
|
646
|
0 |
0 |
if $format->{'cql'}
|
|
647
|
0 |
0 |
if $set and $set->{'cql'}
|
|
648
|
0 |
0 |
if $cql_from
|
|
650
|
0 |
0 |
if $cql_until
|
|
652
|
0 |
0 |
unless (@cql)
|
|
659
|
0 |
0 |
unless ($search->total)
|
|
664
|
0 |
0 |
if (defined(my $new_token = _new_token($setting, $search, $params, $from, $until, $vars->{'token'})))
|
|
678
|
0 |
0 |
if ($verb eq 'ListIdentifiers') { }
|
|
684
|
0 |
0 |
if ($fix)
|
|
706
|
0 |
0 |
if ($fix)
|
|
720
|
0 |
0 |
unless ($deleted)
|
|
727
|
0 |
0 |
if ($format->{'fix'})
|
|
742
|
0 |
1 |
if (my $id = $params->{'identifier'})
|
|
744
|
0 |
0 |
unless ($bag->get($id))
|