| blib/lib/MAB2/Parser/RAW.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 18 | 94.4 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 2 | 3 | if (not $@ and defined $ishandle) { } |
| 2 | 1 | elsif (-e $file) { } | |
| 33 | 0 | 2 | unless open $self->{'reader'}, '<:encoding(UTF-8)', $file |
| 45 | 46 | 2 | if (my $line = $self->{'reader'}->getline) |
| 60 | 1 | 45 | if (substr($reader, -1, 1) ne $END_OF_RECORD) |
| 66 | 45 | 1 | if ($leader =~ /(\d{5}\wM2.0\d*\s*\w)/) { } |
| 77 | 1 | 2038 | if (length $field <= 4) |
| 82 | 2037 | 1 | if (my($tag, $ind, $data) = $field =~ /^(\d{3})([A-Za-z0-9\s])(.*)/) { } |
| 85 | 109 | 1928 | if ($data =~ /\s*$SUBFIELD_INDICATOR(.*)/) { } |