Branch Coverage

blib/lib/Data/MARC/Field008/Utils.pm
Criterion Covered Total %
branch 48 48 100.0


line true false branch
104 1 18 unless ($self->{$key} =~ /^[\ abcdefghijklmop\|]{4}$/ms)
109 1 17 if ($self->{$key} ne "||||" and $self->{$key} =~ /\|/ms)
133 1 18 unless ($self->{$key} =~ /^[\ abcdefgijklmnopqrstuvwyz256\|]{4}$/ms)
138 1 17 if ($self->{$key} ne "||||" and $self->{$key} =~ /\|/ms)
222 1 17 unless ($self->{$key} =~ /^[\ abcdefghiklmnopqrstuvwyz56\|]{3}$/ms)
227 1 16 if ($self->{$key} ne "|||" and $self->{$key} =~ /\|/ms)
281 1 14 unless ($self->{$key} =~ /^[\ \|\du]{4}$/ms)
286 2 12 if ($self->{$key} ne " " and $self->{$key} =~ /\ /ms)
291 2 10 if ($self->{$key} ne "||||" and $self->{$key} =~ /\|/ms)
355 1 13 unless ($self->{$key} =~ /^[\ abcdefgijkmz\|]{4}$/ms)
360 1 12 if ($self->{$key} ne "||||" and $self->{$key} =~ /\|/ms)
374 1 13 unless ($self->{$key} =~ /^[\ ejklnoprz\|]{2}$/ms)
379 1 12 if ($self->{$key} ne "||" and $self->{$key} =~ /\|/ms)
403 1 13 unless ($self->{$key} =~ /^[\ abcdefghikrsz\|]{6}$/ms)
437 1 14 unless ($self->{$key} =~ /^[\ abcdefghijklmnoprstz\|]{2}$/ms)
442 1 13 if ($self->{$key} ne "||" and $self->{$key} =~ /\|/ms)
476 1 16 unless ($self->{$key} =~ /^[\d\-n\|]{3}$/ms)
481 1 15 if ($self->{$key} ne "---" and $self->{$key} =~ /\-/ms)
486 1 14 if ($self->{$key} ne "|||" and $self->{$key} =~ /\|/ms)
491 1 13 if ($self->{$key} ne "nnn" and $self->{$key} =~ /n/ms)
543 32 487 if (&none(sub {
555 100 738 unless (exists $self->{$key} and defined $self->{$key})
558 37 701 if (ref $self->{$key} ne "")
570 37 664 if (length $self->{$key} != $exp_length)