| line |
true |
false |
branch |
|
173
|
0 |
0 |
if defined $makerrec |
|
229
|
0 |
1 |
if (ref($self) =~ /^MARC::File/) { } |
|
234
|
0 |
1 |
$self =~ /MARC::File/ ? : |
|
241
|
1 |
0 |
if defined $text |
|
246
|
0 |
1 |
unless defined $text |
|
260
|
0 |
1 |
unless ($leader =~ /^=LDR /) |
|
268
|
0 |
1 |
unless (length $leader == 24) |
|
282
|
0 |
7 |
unless $tagno =~ /^[0-9A-Za-z]{3}$/ |
|
284
|
2 |
5 |
if ($tagno =~ /^\d+$/ and $tagno < 10) { } |
|
289
|
0 |
2 |
if ($filter_func) |
|
290
|
0 |
0 |
unless &$filter_func($tagno, $tagdata) |
|
302
|
0 |
5 |
unless $tagdata =~ /^\$/ |
|
303
|
0 |
5 |
if ($filter_func) |
|
304
|
0 |
0 |
unless &$filter_func($tagno, $tagdata) |
|
314
|
0 |
5 |
if $empty |
|
319
|
6 |
0 |
if (length $_ > 0) { } |
|
326
|
0 |
5 |
unless (@subfield_data) |
|
332
|
0 |
5 |
if ($field->warnings) |
|
373
|
0 |
1 |
if (ref $marc || $marc) =~ /^MARC::File/ |
|
403
|
0 |
12 |
unless ref $self eq 'MARC::Field' |
|
408
|
2 |
10 |
if ($self->is_control_field) { } |
|
|
0 |
10 |
elsif ($self->tag eq '000') { } |
|
462
|
0 |
0 |
if (not $$self{'exhaustedfh'} and length $$self{'inputbuf'} < 111999) |
|
466
|
0 |
0 |
if ($$self{'inputbuf'} =~ /\x0d\x0a/s) { } |
|
|
0 |
0 |
elsif ($$self{'inputbuf'} =~ /\x0a/) { } |
|
|
0 |
0 |
elsif ($$self{'inputbuf'} =~ /\x0d/) { } |
|
479
|
0 |
0 |
if (not defined $read) { } |
|
|
0 |
0 |
elsif ($read < 1) { } |
|
509
|
0 |
0 |
if ($self->_fill_buffer and length $$self{'inputbuf'} > 0) |
|
515
|
0 |
0 |
unless ($chunk) |
|
659
|
0 |
1 |
if ($MARC::DEBUG) |
|
757
|
0 |
12 |
if ($MARC::DEBUG) |
|
778
|
75 |
0 |
if (exists ${$charmap;}{$1}) { } |