| line |
true |
false |
branch |
|
94
|
1 |
5 |
unless $file |
|
96
|
2 |
3 |
if ($encoding) |
|
97
|
1 |
1 |
unless &find_encoding($encoding) |
|
100
|
1 |
3 |
$encoding ? : |
|
109
|
0 |
4 |
if (not $@ and defined $ishandle) { } |
|
|
3 |
1 |
elsif (-e $file) { } |
|
114
|
0 |
3 |
unless open $self->{'fh'}, "<:encoding($self->{'encoding'})", $file |
|
134
|
6 |
0 |
if (defined(my $raw = <$fh>)) |
|
140
|
0 |
6 |
unless $raw |
|
143
|
2 |
4 |
if (my $marc = $self->_decode($raw)) { } |
|
164
|
1 |
5 |
unless (@fields) |
|
171
|
4 |
1 |
if ($head =~ /(.{$LEADER_LEN})/cg) { } |
|
181
|
1 |
3 |
if (scalar @tags != scalar @fields) |
|
187
|
1 |
2 |
unless ($head =~ /\G$/cg) |
|
208
|
8 |
27 |
if @chunks == 1 |