| line |
true |
false |
branch |
|
78
|
2 |
0 |
if ref $blob or $blob eq 'MARC::Record' |
|
109
|
13 |
2 |
$field ? : |
|
123
|
9 |
2 |
if ($field) { } |
|
140
|
3 |
3 |
$field ? : |
|
153
|
2 |
4 |
defined $str ? : |
|
166
|
3 |
3 |
defined $str ? : |
|
205
|
48 |
196 |
unless (defined $regex) |
|
211
|
234 |
1107 |
if ($maybe->tag =~ /$regex/) |
|
212
|
218 |
16 |
unless wantarray |
|
219
|
17 |
9 |
unless wantarray |
|
239
|
7 |
9 |
unless my $field = $self->field($tag) |
|
249
|
4 |
2644 |
unless UNIVERSAL::isa($_, 'MARC::Field') |
|
269
|
1 |
2609 |
unless _all_parms_are_fields(@_) |
|
291
|
1 |
6 |
unless _all_parms_are_fields(@_) |
|
300
|
5 |
63 |
if $f == $before |
|
305
|
1 |
5 |
if ($pos >= @$fields) |
|
325
|
1 |
3 |
unless _all_parms_are_fields(@_) |
|
333
|
3 |
48 |
if ($f == $after) |
|
341
|
0 |
3 |
unless ($found) |
|
359
|
0 |
2 |
unless _all_parms_are_fields(@new) |
|
367
|
2 |
2 |
if ($field->tag >= $newField->tag) |
|
401
|
1 |
1 |
unless _all_parms_are_fields($new) |
|
407
|
1 |
13 |
if (int $field->tag / 100 > $limit) |
|
416
|
0 |
1 |
unless ($found) |
|
439
|
0 |
6 |
unless _all_parms_are_fields(@_) |
|
506
|
402 |
2742 |
if (defined $text) |
|
507
|
2 |
400 |
unless length $text eq 24 |
|
542
|
1 |
2727 |
if (defined $arg) |
|
543
|
1 |
0 |
if ($arg =~ /UTF-?8/i) { } |
|
|
0 |
0 |
elsif ($arg =~ /MARC-?8/i) { } |
|
552
|
4 |
2724 |
substr($leader, 9, 1) eq 'a' ? : |
|
565
|
0 |
10 |
if ($reclen > 99999) |
|
608
|
0 |
1 |
@keeper_tags ? : |
|
611
|
18 |
0 |
if (not $filtered or grep {$field eq $_;} @$filtered) |
|
692
|
2095 |
10 |
if (ref $parm eq '') { } |
|
|
0 |
10 |
elsif (UNIVERSAL::isa($parm, 'MARC::Field')) { } |
|
|
10 |
0 |
elsif (ref $parm eq 'ARRAY') { } |
|
693
|
0 |
2095 |
unless my $field = 'MARC::Field'->new($parm, @_) |
|
706
|
0 |
10 |
unless my $field = 'MARC::Field'->new(@$parm) |