| line |
true |
false |
branch |
|
125
|
4 |
1 |
unless $self->query |
|
148
|
0 |
0 |
if ($kevs{'url_ver'} and $kevs{'url_ver'} eq 'Z39.88-2004') |
|
156
|
0 |
0 |
if ($KEVS[$i] eq 'sid') { } |
|
|
0 |
0 |
elsif ($KEVS[$i] eq 'id') { } |
|
|
0 |
0 |
elsif ($KEVS[$i] eq 'pid') { } |
|
160
|
0 |
0 |
if ($KEVS[$i + 1] =~ s/(^doi|pmid|bibcode)://) { } |
|
170
|
0 |
0 |
if $KEVS[$i] eq 'title' |
|
175
|
0 |
0 |
if ($genre =~ /^article|preprint|proceeding$/) { } |
|
|
0 |
0 |
elsif ($genre eq 'bookitem') { } |
|
197
|
0 |
46 |
if (1 == @new) |
|
199
|
0 |
0 |
if (ref $n eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $n eq 'HASH') { } |
|
224
|
0 |
1 |
if defined $query{'ctx_ver'} and $query{'ctx_ver'} eq 'Z39.88-2004' |
|
250
|
2 |
11 |
if ($query[$i] eq 'ctx_tim') { } |
|
|
2 |
9 |
elsif ($query[$i] eq 'url_tim') { } |
|
263
|
0 |
3 |
wantarray ? : |
|
282
|
0 |
0 |
if $md[$i] eq 'jtitle' |
|
287
|
0 |
0 |
if (defined $rfr_id and $rfr_id =~ s[^info:sid/][]) |
|
292
|
0 |
0 |
if (defined $rft_id and $rft_id =~ s[^info:(doi|pmid|bibcode)/][$1:] || $rft_id =~ /^oai:/) |
|
316
|
0 |
0 |
if (not $KEVS[$i] =~ /^ctx_ver|ctx_enc|ctx_id|ctx_tim|url_ver|url_tim|url_ctx_fmt|(?:(?:rft|rfe|svc|req|res|rfr)[_\.].+)$/) { } |
|
357
|
0 |
5 |
if wantarray |
|
371
|
0 |
1 |
if wantarray |
|
385
|
0 |
1 |
if wantarray |
|
397
|
0 |
1 |
if wantarray |
|
411
|
0 |
1 |
if wantarray |
|
425
|
0 |
1 |
if wantarray |
|
533
|
0 |
7 |
unless defined $pairs[$i + 1] and length $pairs[$i + 1] |
|
544
|
5 |
0 |
if $val_fmt |
|
546
|
0 |
20 |
unless defined $pairs[$i + 1] and length $pairs[$i + 1] |
|
580
|
0 |
0 |
if @_ |
|
581
|
0 |
0 |
unless wantarray |
|
586
|
0 |
0 |
if ($pairs[$i] =~ s/^$entity\_//) |
|
600
|
2 |
27 |
if $KEVS[$i] eq "${entity}_$key" |
|
602
|
1 |
0 |
wantarray ? : |
|
614
|
1 |
1 |
if @_ |
|
615
|
1 |
1 |
unless wantarray |
|
620
|
8 |
21 |
if ($pairs[$i] =~ s/^$entity\.//) |