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