| line |
true |
false |
branch |
|
356
|
0 |
2 |
if ($self->version) |
|
360
|
2 |
0 |
if (defined $self->mailto) |
|
395
|
0 |
0 |
if (ref $args[0] eq 'HASH') { } |
|
415
|
5 |
3 |
unless exists $ar->{$filter_name} |
|
442
|
0 |
1 |
if $ar->{'json_path'} and $ar->{'keys_to_keep'} |
|
448
|
2 |
7 |
if $self->test_data |
|
449
|
0 |
7 |
$self->version ? : |
|
454
|
0 |
7 |
if ($query_ar) |
|
468
|
12 |
2 |
if $value |
|
471
|
6 |
1 |
if $self->rows |
|
472
|
6 |
1 |
if $self->cursor |
|
477
|
0 |
7 |
if $self->page_start_at and $self->page_start_at > $self->rows |
|
479
|
6 |
1 |
if @params > 0 |
|
483
|
0 |
7 |
if ($self->sleep > 0) |
|
492
|
0 |
7 |
defined $val ? : |
|
494
|
0 |
7 |
defined $val ? : |
|
501
|
0 |
21 |
if $response->responseHeader($k) |
|
505
|
0 |
7 |
if ($backoff > 0) { } |
|
|
0 |
7 |
elsif ($code eq '429' or $code eq '503') { } |
|
509
|
0 |
0 |
defined $retryAfter ? : |
|
518
|
0 |
7 |
unless $code eq '200' |
|
527
|
1 |
7 |
$self->test_data ? : |
|
535
|
0 |
8 |
unless $response |
|
539
|
1 |
7 |
$self->test_data ? : |
|
546
|
7 |
1 |
if (defined $res_count and $res_count > 0) |
|
568
|
0 |
1 |
if ($param_ar) { } |
|
579
|
1 |
0 |
if ($response) |
|
582
|
1 |
0 |
$self->test_data ? : |
|
588
|
0 |
1 |
if (defined $res_count) { } |
|
591
|
0 |
0 |
if ($res_count > 0) |
|
614
|
1 |
8 |
if $self->spit_raw_data |
|
616
|
0 |
8 |
if $hr->{'message'}{'total-results'} and $hr->{'message'}{'total-results'} == 0 |
|
618
|
6 |
2 |
if ($hr->{'message'}{'items'}) { } |
|
626
|
6 |
2 |
if (defined $self->{'json_path'}) { } |
|
|
2 |
0 |
elsif (defined $self->{'keys_to_keep'}) { } |
|
645
|
0 |
90 |
if ($self->{'json_path_callback'} and $self->{'json_path_callback'}{$path}) { } |
|
|
90 |
0 |
elsif (@val) { } |
|
650
|
0 |
0 |
if @val |
|
651
|
0 |
0 |
if $@ |
|
696
|
0 |
0 |
if ($self->{'sort_output'}) { } |
|
706
|
0 |
0 |
if $self->add_end_flag |
|
718
|
32 |
0 |
if ($filter_hr) { } |
|
729
|
151 |
93 |
unless defined $pos |
|
736
|
93 |
0 |
defined $result_hr->{$key} ? : |
|
750
|
31 |
1 |
if $self->add_end_flag |
|
755
|
0 |
0 |
if ($self->{'sort_output'}) { } |
|
766
|
0 |
0 |
if $self->add_end_flag |
|
799
|
0 |
0 |
unless defined $doi |
|
818
|
0 |
0 |
unless defined $id |
|
823
|
0 |
0 |
$id =~ m[^https*://orcid.org/] ? : |
|
839
|
0 |
0 |
unless defined $doi |
|
853
|
0 |
1 |
unless defined $doi |
|
870
|
0 |
1 |
unless defined $id |
|
871
|
1 |
0 |
$select ? : |
|
876
|
0 |
1 |
$select eq '*' ? : |
|
882
|
0 |
2 |
if ($k eq 'name') { } |
|
|
0 |
2 |
elsif ($k eq 'orcid') { } |
|
891
|
0 |
0 |
$href->{$k} =~ m[^https*://orcid.org/] ? : |
|
943
|
0 |
1 |
unless $id |
|
996
|
0 |
0 |
unless $field =~ /(?:container-)*title$|author$|editor$|chair$|translator$|contributor$|bibliographic$|affiliation$/ |
|
1000
|
0 |
0 |
unless $field =~ /^query\./ |
|
1046
|
5 |
0 |
defined $self->cursor ? : |
|
1050
|
5 |
0 |
if ($self->cursor) |
|
1060
|
0 |
5 |
if ($last_start and $self->{'last_page_items_count'} >= $self->rows) |
|
1086
|
0 |
0 |
if ($response) |
|
1091
|
0 |
0 |
if $self->spit_raw_data |
|
1111
|
0 |
0 |
unless $loc |
|
1131
|
6 |
1 |
if (exists $msg{'next-cursor'} and $n_items >= $self->rows) { } |
|
1179
|
36 |
4 |
$result_hr ? : |
|
1187
|
24 |
190 |
if (ref $raw_hr->{$k} eq 'HASH') { } |
|
|
30 |
160 |
elsif (ref $raw_hr->{$k} eq 'ARRAY') { } |
|
1192
|
24 |
0 |
$result_hr ? : |
|
1199
|
30 |
0 |
$result_hr ? : |
|
1203
|
10 |
20 |
if defined $$result_hr{$$key_ar[$#$key_ar]} |
|
1210
|
26 |
134 |
if ref $raw_hr->{$k} |
|
1213
|
1 |
159 |
if (defined $self->{'keys_to_keep'} and defined $self->{'keys_to_keep'}{$key}) { } |
|
1231
|
40 |
0 |
$result_hr ? : |
|
1239
|
47 |
121 |
$res_hr ? : |
|
1244
|
1 |
167 |
if ($key eq 'author') { } |
|
1250
|
1 |
1 |
if ($aut->{'sequence'} eq 'first') { } |
|
1251
|
1 |
0 |
if ($aut->{'family'}) { } |
|
|
0 |
0 |
elsif ($aut->{'name'}) { } |
|
1257
|
1 |
0 |
defined $aut->{'given'} ? : |
|
1270
|
1 |
0 |
if ($aut->{'family'}) { } |
|
|
0 |
0 |
elsif ($aut->{'name'}) { } |
|
1276
|
1 |
0 |
defined $aut->{'given'} ? : |
|
1299
|
14 |
194 |
if (ref $val eq 'HASH') { } |
|
|
48 |
146 |
elsif (ref $val eq 'ARRAY') { } |
|
1303
|
0 |
14 |
if defined $$res_hr{$key_ar->[$last]} |
|
1305
|
14 |
0 |
$res_hr ? : |
|
1311
|
48 |
0 |
$res_hr ? : |
|
1317
|
2 |
144 |
if (defined $self->{'keys_to_keep'} and defined $self->{'keys_to_keep'}{$last_key}) { } |
|
1320
|
2 |
0 |
if (defined $val) { } |
|
1337
|
168 |
0 |
$res_hr ? : |