| line |
true |
false |
branch |
|
73
|
0 |
0 |
$old_token && $old_token->{'_n'} ? :
|
|
76
|
0 |
0 |
unless $n < $hits->total
|
|
82
|
0 |
0 |
if ($strategy eq 'paginate' and $hits->more) { }
|
|
|
0 |
0 |
elsif ($strategy eq 'es.scroll' and exists $hits->{'scroll_id'}) { }
|
|
93
|
0 |
0 |
if defined $params->{'set'}
|
|
95
|
0 |
0 |
if defined $params->{'metadataPrefix'}
|
|
96
|
0 |
0 |
if defined $from
|
|
97
|
0 |
0 |
if defined $until
|
|
111
|
0 |
0 |
if ($token)
|
|
112
|
0 |
0 |
if ($strategy eq 'paginate' and exists $token->{'start'}) { }
|
|
|
0 |
0 |
elsif ($strategy eq 'es.scroll' and exists $token->{'scroll_id'}) { }
|
|
133
|
0 |
2 |
if ($setting->{'filter'})
|
|
143
|
0 |
2 |
if ($setting->{'search_strategy'} eq 'es.scroll')
|
|
148
|
0 |
2 |
if ($setting->{'datestamp_pattern'})
|
|
161
|
0 |
2 |
$datestamp_parser ? :
|
|
173
|
4 |
0 |
if (my $fix = $format->{'fix'})
|
|
182
|
2 |
0 |
if (my $list = $setting->{'sets'}) { }
|
|
198
|
0 |
2 |
if (my $icon = $setting->{'collectionIcon'})
|
|
199
|
0 |
0 |
if (my $url = $icon->{'url'})
|
|
220
|
0 |
2 |
if (my $xsl_path = $setting->{'xsl_stylesheet'})
|
|
277
|
2 |
0 |
unless is_array_ref($admin_email)
|
|
284
|
0 |
4 |
unless is_array_ref($i_value)
|
|
383
|
0 |
6 |
unless is_array_ref($set_descriptions)
|
|
398
|
0 |
2 |
if ($fix)
|
|
423
|
13 |
2 |
request()->is_get ? :
|
|
435
|
7 |
8 |
if ($verb and my $spec = $VERBS->{$verb}) { }
|
|
439
|
0 |
7 |
if ($valid->{'resumptionToken'} and exists $params->{'resumptionToken'}) { }
|
|
442
|
0 |
0 |
if (keys %$params > 2)
|
|
451
|
7 |
0 |
if $key eq 'verb'
|
|
452
|
0 |
0 |
unless ($valid->{$key})
|
|
458
|
0 |
0 |
unless (exists $params->{$key})
|
|
469
|
8 |
7 |
if (@$errors)
|
|
475
|
0 |
7 |
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'}
|
|
492
|
0 |
0 |
if defined $token->{'_m'}
|
|
493
|
0 |
0 |
if defined $token->{'_f'}
|
|
494
|
0 |
0 |
if defined $token->{'_u'}
|
|
507
|
0 |
7 |
if (exists $params->{'set'})
|
|
508
|
0 |
0 |
unless ($sets)
|
|
511
|
0 |
0 |
unless ($set = $$sets{$params->{'set'}})
|
|
516
|
0 |
7 |
if (exists $params->{'metadataPrefix'})
|
|
517
|
0 |
0 |
unless ($format = $$metadata_formats{$params->{'metadataPrefix'}})
|
|
526
|
0 |
7 |
if (@$errors)
|
|
530
|
0 |
7 |
if ($verb eq 'GetRecord') { }
|
|
|
3 |
4 |
elsif ($verb eq 'Identify') { }
|
|
|
0 |
4 |
elsif ($verb eq 'ListIdentifiers' or $verb eq 'ListRecords') { }
|
|
|
2 |
2 |
elsif ($verb eq 'ListMetadataFormats') { }
|
|
|
2 |
0 |
elsif ($verb eq 'ListSets') { }
|
|
541
|
0 |
0 |
if (defined $rec)
|
|
542
|
0 |
0 |
if ($fix)
|
|
557
|
0 |
0 |
if ($format->{'fix'})
|
|
563
|
0 |
0 |
unless ($vars->{'deleted'} and $setting->{'deletedRecord'} eq 'no')
|
|
600
|
0 |
0 |
unless $datestamp
|
|
601
|
0 |
0 |
unless ($datestamp =~ /^\d{4}-\d{2}-\d{2}(?:T\d{2}:\d{2}:\d{2}Z)?$/)
|
|
612
|
0 |
0 |
if ($from and $until and length $from != length $until)
|
|
620
|
0 |
0 |
if ($from and $until and $from gt $until)
|
|
626
|
0 |
0 |
if ($from and length $from == 10)
|
|
629
|
0 |
0 |
if ($until and length $until == 10)
|
|
636
|
0 |
0 |
if (my $pattern = $setting->{'datestamp_pattern'})
|
|
637
|
0 |
0 |
if $cql_from
|
|
641
|
0 |
0 |
if $cql_until
|
|
647
|
0 |
0 |
if $setting->{'cql_filter'}
|
|
648
|
0 |
0 |
if $format->{'cql'}
|
|
649
|
0 |
0 |
if $set and $set->{'cql'}
|
|
650
|
0 |
0 |
if $cql_from
|
|
652
|
0 |
0 |
if $cql_until
|
|
654
|
0 |
0 |
unless (@cql)
|
|
661
|
0 |
0 |
unless ($search->total)
|
|
666
|
0 |
0 |
if (defined(my $new_token = _new_token($setting, $search, $params, $from, $until, $vars->{'token'})))
|
|
680
|
0 |
0 |
if ($verb eq 'ListIdentifiers') { }
|
|
686
|
0 |
0 |
if ($fix)
|
|
708
|
0 |
0 |
if ($fix)
|
|
722
|
0 |
0 |
unless ($deleted)
|
|
729
|
0 |
0 |
if ($format->{'fix'})
|
|
744
|
0 |
2 |
if (my $id = $params->{'identifier'})
|
|
746
|
0 |
0 |
unless ($bag->get($id))
|