| line |
true |
false |
branch |
|
356
|
0 |
1 |
if ($self->version) |
|
360
|
1 |
0 |
if (defined $self->mailto) |
|
395
|
0 |
0 |
if (ref $args[0] eq 'HASH') { } |
|
415
|
4 |
2 |
unless exists $ar->{$filter_name} |
|
442
|
0 |
0 |
if $ar->{'json_path'} and $ar->{'keys_to_keep'} |
|
448
|
2 |
1 |
if $self->test_data |
|
449
|
0 |
1 |
$self->version ? : |
|
454
|
0 |
1 |
if ($query_ar) |
|
468
|
0 |
2 |
if $value |
|
471
|
0 |
1 |
if $self->rows |
|
472
|
0 |
1 |
if $self->cursor |
|
477
|
0 |
1 |
if $self->page_start_at and $self->page_start_at > $self->rows |
|
479
|
0 |
1 |
if @params > 0 |
|
483
|
0 |
1 |
if ($self->sleep > 0) |
|
492
|
0 |
1 |
defined $val ? : |
|
494
|
0 |
1 |
defined $val ? : |
|
501
|
0 |
3 |
if $response->responseHeader($k) |
|
505
|
0 |
1 |
if ($backoff > 0) { } |
|
|
0 |
1 |
elsif ($code eq '429' or $code eq '503') { } |
|
509
|
0 |
0 |
defined $retryAfter ? : |
|
517
|
0 |
1 |
unless $code eq '200' |
|
524
|
1 |
1 |
$self->test_data ? : |
|
532
|
0 |
2 |
unless $response |
|
536
|
1 |
1 |
$self->test_data ? : |
|
543
|
1 |
1 |
if (defined $res_count and $res_count > 0) |
|
563
|
0 |
1 |
if ($param_ar) { } |
|
574
|
1 |
0 |
if ($response) |
|
577
|
1 |
0 |
$self->test_data ? : |
|
583
|
0 |
1 |
if (defined $res_count) { } |
|
586
|
0 |
0 |
if ($res_count > 0) |
|
609
|
1 |
2 |
if $self->spit_raw_data |
|
613
|
0 |
2 |
if ($hr->{'message'}{'items'}) { } |
|
621
|
0 |
2 |
if (defined $self->{'json_path'}) { } |
|
|
2 |
0 |
elsif (defined $self->{'keys_to_keep'}) { } |
|
640
|
0 |
0 |
if ($self->{'json_path_callback'} and $self->{'json_path_callback'}{$path}) { } |
|
|
0 |
0 |
elsif (@val) { } |
|
646
|
0 |
0 |
if $@ |
|
691
|
0 |
0 |
if ($self->{'sort_output'}) { } |
|
701
|
0 |
0 |
if $self->add_end_flag |
|
713
|
2 |
0 |
if ($filter_hr) { } |
|
724
|
151 |
3 |
unless defined $pos |
|
731
|
3 |
0 |
defined $result_hr->{$key} ? : |
|
745
|
1 |
1 |
if $self->add_end_flag |
|
750
|
0 |
0 |
if ($self->{'sort_output'}) { } |
|
761
|
0 |
0 |
if $self->add_end_flag |
|
792
|
0 |
0 |
unless defined $doi |
|
804
|
0 |
0 |
unless defined $doi |
|
818
|
0 |
1 |
unless defined $doi |
|
834
|
0 |
0 |
unless defined $id |
|
835
|
0 |
0 |
$select ? : |
|
840
|
0 |
0 |
$select eq '*' ? : |
|
844
|
0 |
0 |
if ($k eq 'name') { } |
|
|
0 |
0 |
elsif ($k eq 'orcid') { } |
|
855
|
0 |
0 |
$href->{$k} =~ m[^https*://orcid.org/] ? : |
|
903
|
0 |
1 |
unless $id |
|
956
|
0 |
0 |
unless $field =~ /(?:container-)*title$|author$|editor$|chair$|translator$|contributor$|bibliographic$|affiliation$/ |
|
960
|
0 |
0 |
unless $field =~ /^query\./ |
|
1006
|
0 |
0 |
defined $self->cursor ? : |
|
1010
|
0 |
0 |
if ($self->cursor) |
|
1020
|
0 |
0 |
if ($last_start and $self->{'last_page_items_count'} >= $self->rows) |
|
1046
|
0 |
0 |
if ($response) |
|
1051
|
0 |
0 |
if $self->spit_raw_data |
|
1071
|
0 |
0 |
unless $loc |
|
1091
|
0 |
1 |
if (exists $msg{'next-cursor'} and $n_items >= $self->rows) { } |
|
1139
|
34 |
6 |
$result_hr ? : |
|
1147
|
24 |
190 |
if (ref $raw_hr->{$k} eq 'HASH') { } |
|
|
30 |
160 |
elsif (ref $raw_hr->{$k} eq 'ARRAY') { } |
|
1152
|
24 |
0 |
$result_hr ? : |
|
1159
|
30 |
0 |
$result_hr ? : |
|
1163
|
10 |
20 |
if defined $$result_hr{$$key_ar[$#$key_ar]} |
|
1170
|
26 |
134 |
if ref $raw_hr->{$k} |
|
1173
|
1 |
159 |
if (defined $self->{'keys_to_keep'} and defined $self->{'keys_to_keep'}{$key}) { } |
|
1191
|
40 |
0 |
$result_hr ? : |
|
1199
|
48 |
0 |
$res_hr ? : |
|
1204
|
1 |
47 |
if ($key eq 'author') { } |
|
1210
|
1 |
1 |
if ($aut->{'sequence'} eq 'first') { } |
|
1211
|
1 |
0 |
if ($aut->{'family'}) { } |
|
|
0 |
0 |
elsif ($aut->{'name'}) { } |
|
1217
|
1 |
0 |
defined $aut->{'given'} ? : |
|
1230
|
1 |
0 |
if ($aut->{'family'}) { } |
|
|
0 |
0 |
elsif ($aut->{'name'}) { } |
|
1236
|
1 |
0 |
defined $aut->{'given'} ? : |
|
1259
|
14 |
74 |
if (ref $val eq 'HASH') { } |
|
|
18 |
56 |
elsif (ref $val eq 'ARRAY') { } |
|
1263
|
0 |
14 |
if defined $$res_hr{$key_ar->[$last]} |
|
1265
|
14 |
0 |
$res_hr ? : |
|
1271
|
18 |
0 |
$res_hr ? : |
|
1277
|
2 |
54 |
if (defined $self->{'keys_to_keep'} and defined $self->{'keys_to_keep'}{$last_key}) { } |
|
1280
|
2 |
0 |
if (defined $val) { } |
|
1297
|
48 |
0 |
$res_hr ? : |