Branch Coverage

lib/Parse/AFP/Base.pm
Criterion Covered Total %
branch 20 28 71.4


line true false branch
12 0 110 if defined $padding
18 96 30 unless my($field) = $self->member_fields
19 0 30 unless $self->field_format($field) =~ m[(\S+)/]
25 5 5 if ($self->has_field('Length'))
28 5 4 if $field eq 'Length'
44 100 1 if ($self->has_field('Length'))
53 182 16 unless $self->has_members
57 0 95 unless my $packer = $self->field_packer($field)
59 16 79 if ($self->member_class($field)) { }
61 16 0 $format =~ m[\((.*?)/] ? :
66 146 0 if ($prefix)
86 0 0 unless $data
91 9 5 unless $field = $self->field($field)
92 822 0 unless ref $_ eq 'CODE'