| line |
true |
false |
branch |
|
37
|
0 |
4154 |
unless $tag |
|
39
|
11 |
4143 |
unless (@_) |
|
45
|
0 |
4143 |
unless defined $tagno |
|
93
|
0 |
4088 |
if $tag_filter_func and not &$tag_filter_func($tagno) |
|
97
|
4088 |
0 |
defined $subfields ? : |
|
98
|
781 |
3307 |
if ($sf eq "\037") { } |
|
|
3303 |
4 |
elsif ($sf eq '$') { } |
|
|
1 |
3 |
elsif ($sf eq "\203") { } |
|
|
1 |
2 |
elsif ($sf eq "\237") { } |
|
|
2 |
0 |
elsif ($sf eq '') { } |
|
118
|
0 |
8410 |
unless defined $value |
|
119
|
7181 |
1229 |
if $sf eq '$' |
|
132
|
2 |
55846 |
if (defined $tag) |
|
134
|
0 |
2 |
unless defined $tagno |
|
140
|
51218 |
4630 |
$$self{'_occurrence'} ? : |
|
148
|
1 |
3 |
if (defined $occurrence) |
|
149
|
0 |
1 |
unless $occurrence >= 0 and $occurrence <= 99 |
|
169
|
1021 |
2 |
if (ref $codes ne 'Regexp') |
|
171
|
2 |
1019 |
if ($codes eq '') { } |
|
182
|
1106 |
1040 |
unless $data[$i] =~ /$codes/ |
|
185
|
626 |
414 |
if (wantarray) { } |
|
192
|
8 |
601 |
unless wantarray |
|
203
|
2 |
0 |
$codes eq '' ? : |
|
210
|
0 |
8 |
unless $data[$i] =~ /$codes/ |
|
222
|
2 |
4167 |
unless $nfields >= 1 |
|
228
|
8515 |
2 |
defined $value ? : |
|
231
|
0 |
8517 |
unless $code =~ /$SUBFIELD_CODE_REGEXP/ |
|
249
|
0 |
17 |
unless $c =~ /$SUBFIELD_CODE_REGEXP/ |
|
252
|
1 |
16 |
if (exists $values{$c}) { } |
|
253
|
0 |
1 |
UNIVERSAL::isa($v, 'ARRAY') ? : |
|
256
|
2 |
14 |
UNIVERSAL::isa($v, 'ARRAY') ? : |
|
267
|
15 |
10 |
if (exists $values{$code}) { } |
|
268
|
13 |
2 |
if (defined $values{$code}) |
|
283
|
13 |
3 |
unless defined $values{$code} |
|
300
|
6 |
0 |
if (@_ and UNIVERSAL::isa($self, 'PICA::Field')) { } |
|
317
|
2 |
0 |
if shift @data eq '' |
|
327
|
3 |
10700 |
unless @{$$self{'_subfields'};} |
|
332
|
10698 |
5 |
if shift @data ne '' |
|
345
|
7 |
7 |
if (defined $code) { } |
|
346
|
3 |
4 |
if defined $_ and $_ ne '' |
|
353
|
2 |
3 |
unless @subfields |
|
380
|
0 |
2 |
unless @{$$self{'_subfields'};} |
|
381
|
1 |
1 |
unless defined $order |
|
385
|
124 |
3 |
unless defined $pos{$_} |
|
408
|
733 |
47 |
@_ ? : |
|
410
|
1 |
779 |
defined $args{'subfields'} ? : |
|
411
|
15 |
765 |
defined $args{'startfield'} ? : |
|
412
|
732 |
48 |
defined $args{'endfield'} ? : |
|
413
|
15 |
765 |
defined $args{'startsubfield'} ? : |
|
424
|
1379 |
2 |
if (not $subfields or $code =~ /^[$subfields]$/) |
|
425
|
1325 |
54 |
if $startsubfield eq '$' |
|
430
|
3 |
777 |
unless @subs |
|
433
|
230 |
547 |
if defined $$self{'_occurrence'} |
|
482
|
3 |
6 |
if (UNIVERSAL::isa($_[0], 'XML::Writer')) { } |
|
|
1 |
5 |
elsif (ref $_[0]) { } |
|
490
|
3 |
6 |
if (defined $param{'writer'}) { } |
|
495
|
5 |
1 |
unless (defined $param{'OUTPUT'}) |
|
504
|
5 |
1 |
defined $sref ? : |
|
523
|
0 |
0 |
if (defined $$self{'_occurrence'}) { } |
|
534
|
0 |
0 |
if ($nfields) |
|
554
|
14 |
4364 |
unless defined $tagno and $tagno =~ /$FIELD_TAG_REGEXP/ |
|
555
|
1254 |
3124 |
unless defined $occurrence and $occurrence =~ /$FIELD_OCCURRENCE_REGEXP/ |