| line |
true |
false |
branch |
|
111
|
0 |
0 |
if $format |
|
167
|
0 |
0 |
if ref $xml or $xml eq 'MARC::Record' |
|
192
|
0 |
0 |
unless my $fh = 'IO::File'->new(">$filename") |
|
195
|
0 |
0 |
if ($enc =~ /^utf-?8$/io) { } |
|
222
|
0 |
0 |
unless ($$self{'fh'}) |
|
225
|
0 |
0 |
unless ($record) |
|
229
|
0 |
0 |
unless ($$self{'header'}) |
|
235
|
0 |
0 |
unless $$self{'fh'}->print(record($record)) |
|
249
|
0 |
0 |
if ($$self{'fh'}) |
|
250
|
0 |
0 |
if $$self{'header'} |
|
286
|
0 |
0 |
if $enc and ref $enc || $enc eq 'MARC::File::XML' |
|
326
|
1 |
0 |
if ($original_encoding ne 'a' and not lc($format) =~ /^unimarc/o) |
|
333
|
0 |
1 |
if ($without_header) { } |
|
350
|
1 |
1 |
if ($field->is_control_field) { } |
|
352
|
1 |
0 |
$_transcode ? : |
|
360
|
1 |
0 |
$_transcode ? : |
|
368
|
1 |
0 |
if ($_transcode) |
|
389
|
0 |
6 |
if not defined $string or $string eq '' |
|
399
|
0 |
0 |
if eof $fh |
|
409
|
0 |
0 |
unless $xml =~ m[.*]s |
|
432
|
0 |
0 |
if (ref($self) =~ /^MARC::File/) { } |
|
437
|
0 |
0 |
$self =~ /MARC::File/ ? : |
|
458
|
0 |
0 |
if defined $format and lc($format) =~ /^unimarc/o |
|
459
|
0 |
0 |
if defined $enc and lc($enc) =~ /^utf-?8/o |
|
479
|
0 |
1 |
if (lc($format) =~ /^unimarc/o) |
|
484
|
1 |
0 |
unless $without_header |
|
486
|
1 |
0 |
unless $without_header |
|
496
|
0 |
0 |
if lc $f eq 'unimarcauth' |
|
500
|
0 |
0 |
if ($enc eq '01' or $enc eq '03') { } |
|
|
0 |
0 |
elsif ($enc eq '50') { } |