| blib/lib/MAB2/Parser/Disk.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 16 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 0 | 0 | if (not $@ and defined $ishandle) { } |
| 0 | 0 | elsif (-e $file) { } | |
| 32 | 0 | 0 | unless open $self->{'reader'}, '<:encoding(UTF-8)', $file |
| 45 | 0 | 0 | if (my $data = $self->{'reader'}->getline) |
| 65 | 0 | 0 | if ($leader =~ /^\N{U+23}{3}\s(\d{5}[cdnpu]M2.0\d{7}\s{6}\w)/msx) { } |
| 75 | 0 | 0 | if (length $field <= 4) |
| 80 | 0 | 0 | if (my($tag, $ind, $data) = $field =~ /^(\d{3})([A-Za-z0-9\s])(.*)/) { } |
| 84 | 0 | 0 | if ($data =~ /\s*($SUBFIELD_INDICATOR|\$)(.*)/) { } |