blib/lib/Catmandu/Exporter/MARC/Base.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 8 | 10 | 80.0 |
line | true | false | branch |
---|---|---|---|
15 | 0 | 8 | if ($tag eq 'LDR') { } |
2 | 6 | elsif ($tag =~ /^00/) { } | |
35 | 0 | 1 | if defined $data->{'leader'} |
41 | 7 | 1 | if (ref $val) { } |
65 | 309 | 6 | if ($tag =~ /^00/ || defined $data[$i] and defined $data[$i + 1] and $data[$i + 1] =~ /\S+/) |