| line |
true |
false |
branch |
|
67
|
14 |
0 |
if ($self) |
|
77
|
14 |
0 |
if (defined $header) { } |
|
78
|
2 |
12 |
if ($header =~ /^LDR/) { } |
|
103
|
26 |
221 |
if (not $self->{'exhaustedfh'} and length $self->{'inputbuf'} < 111999) |
|
106
|
0 |
26 |
if (not defined $read) { } |
|
|
12 |
14 |
elsif ($read < 1) { } |
|
137
|
239 |
8 |
if ($self->_fill_buffer and length $self->{'inputbuf'} > 0) |
|
143
|
14 |
225 |
if ($want_line) { } |
|
144
|
14 |
0 |
if ($self->{'inputbuf'} =~ /^([^\x0d\x0a]*)([\x0d\x0a]+)/) |
|
154
|
1 |
224 |
if $pos < 0 |
|
155
|
224 |
0 |
if (substr($self->{'inputbuf'}, $pos + 1, 1) eq "\r" or substr($self->{'inputbuf'}, $pos + 1, 1) eq "\n") |
|
166
|
1 |
238 |
unless ($chunk) |
|
193
|
225 |
8 |
if defined $lifrec |
|
232
|
225 |
7 |
if (ref($self) =~ /^MARC::File/) { } |
|
237
|
3 |
4 |
$self =~ /MARC::File/ ? : |
|
243
|
232 |
0 |
if defined $text |
|
248
|
0 |
2335 |
unless $line =~ s/^([0-9A-Za-z]{3})// |
|
252
|
10 |
2325 |
unless $line =~ s/\^`?$// |
|
255
|
232 |
2103 |
if ($tagno eq 'LDR') { } |
|
|
289 |
1814 |
elsif ($tagno =~ /^\d+$/ and $tagno < 10) { } |
|
264
|
8 |
1806 |
if (scalar @subfield_data_pairs < 2) { } |