Branch Coverage

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|\$)(.*)/) { }