| line |
true |
false |
branch |
|
77
|
2 |
0 |
if ref $blob or $blob eq 'MARC::Record' |
|
108
|
9 |
2 |
$field ? : |
|
122
|
9 |
2 |
if ($field) { } |
|
139
|
3 |
3 |
$field ? : |
|
152
|
2 |
4 |
defined $str ? : |
|
165
|
3 |
3 |
defined $str ? : |
|
204
|
44 |
188 |
unless (defined $regex) |
|
210
|
217 |
1095 |
if ($maybe->tag =~ /$regex/) |
|
211
|
211 |
6 |
unless wantarray |
|
218
|
17 |
4 |
unless wantarray |
|
238
|
7 |
9 |
unless my $field = $self->field($tag) |
|
248
|
4 |
2393 |
unless ref $_ eq 'MARC::Field' |
|
268
|
1 |
2367 |
unless _all_parms_are_fields(@_) |
|
290
|
1 |
6 |
unless _all_parms_are_fields(@_) |
|
299
|
5 |
63 |
if $f == $before |
|
304
|
1 |
5 |
if ($pos >= @$fields) |
|
324
|
1 |
2 |
unless _all_parms_are_fields(@_) |
|
331
|
2 |
30 |
if $f == $after |
|
336
|
0 |
2 |
if ($pos + 1 >= @$fields) |
|
354
|
0 |
2 |
unless _all_parms_are_fields(@new) |
|
362
|
2 |
2 |
if ($field->tag >= $newField->tag) |
|
396
|
1 |
1 |
unless _all_parms_are_fields($new) |
|
402
|
1 |
13 |
if (int $field->tag / 100 > $limit) |
|
411
|
0 |
1 |
unless ($found) |
|
491
|
381 |
12 |
if (defined $text) |
|
492
|
2 |
379 |
unless length $text eq 24 |
|
549
|
0 |
1 |
@keeper_tags ? : |
|
552
|
18 |
0 |
if (not $filtered or grep {$field eq $_;} @$filtered) |
|
633
|
2067 |
10 |
if (ref $parm eq '') { } |
|
|
0 |
10 |
elsif (ref $parm eq 'MARC::Field') { } |
|
|
10 |
0 |
elsif (ref $parm eq 'ARRAY') { } |
|
634
|
0 |
2067 |
unless my $field = 'MARC::Field'->new($parm, @_) |
|
647
|
0 |
10 |
unless my $field = 'MARC::Field'->new(@$parm) |