| line |
true |
false |
branch |
|
51
|
12 |
164 |
if eof $fh |
|
110
|
162 |
6 |
if (ref($self) =~ /^MARC::File/) { } |
|
115
|
3 |
3 |
$self =~ /MARC::File/ ? : |
|
123
|
3 |
165 |
unless $text =~ /^(\d{5})/ |
|
128
|
0 |
165 |
unless $reclen == $realLength |
|
131
|
0 |
165 |
unless substr($text, -1, 1) eq "\035" |
|
143
|
1 |
164 |
unless substr($text, $data_start - 1, 1) eq "\036" |
|
147
|
0 |
165 |
unless length($dir) % 12 == 0 |
|
157
|
0 |
2723 |
unless $tagno =~ /^[0-9A-Za-z]{3}$/ |
|
160
|
0 |
2723 |
unless $len =~ /^\d{4}$/ |
|
163
|
0 |
2723 |
unless $offset =~ /^\d{5}$/ |
|
166
|
0 |
2723 |
unless $offset + $len <= $reclen |
|
172
|
1 |
2722 |
if ($marc->encoding eq 'UTF-8') |
|
176
|
0 |
2723 |
unless $len == &bytes::length($tagdata) |
|
179
|
2723 |
0 |
if (substr($tagdata, -1, 1) eq "\036") { } |
|
187
|
0 |
2723 |
if $MARC::Record::DEBUG |
|
189
|
167 |
2556 |
if ($filter_func) |
|
190
|
154 |
13 |
unless &$filter_func($tagno, $tagdata) |
|
193
|
559 |
2010 |
if ('MARC::Field'->is_controlfield_tag($tagno)) { } |
|
200
|
0 |
2010 |
if (length $indicators > 2 or length $indicators == 0) { } |
|
211
|
3341 |
0 |
if (length $_ > 0) { } |
|
218
|
0 |
2010 |
unless (@subfield_data) |
|
224
|
2 |
2008 |
if ($field->warnings) |
|
265
|
0 |
10 |
if (ref $marc || $marc) =~ /^MARC::File/ |
|
266
|
0 |
10 |
unless ref $marc eq 'MARC::Record' |
|
311
|
1 |
9 |
if (ref $marc || $marc) =~ /^MARC::File/ |