Branch Coverage

blib/lib/Font/TTF/Post.pm
Criterion Covered Total %
branch 14 48 29.1


line true false branch
112 0 9 unless defined $k and $k ne ''
129 0 2 unless $self->SUPER::read
135 1 1 unless $Font::TTF::Post::fields{'FormatType'}
139 2 0 if (int $self->{'FormatType'} + 0.5 == 1) { }
0 0 elsif (int $self->{'FormatType'} * 2 + 0.1 == 5) { }
0 0 elsif (int $self->{'FormatType'} + 0.5 == 2) { }
144 516 0 unless defined $self->{'STRINGS'}{$Font::TTF::Post::base_set[$i]}
155 0 0 unless defined $self->{'STRINGS'}{$Font::TTF::Post::base_set[$i + $off]}
165 0 0 if not defined $maxoff or $off > $maxoff
177 0 0 if ($off > 257) { }
185 0 0 unless defined $self->{'STRINGS'}{$Font::TTF::Post::base_set[$off]}
204 0 2 unless $self->{' read'}
208 0 2 unless $Font::TTF::Post::fields{'FormatType'}
212 0 2 if ($#{$$self{'VAL'};} < 0) { }
219 0 196 if (not defined $Font::TTF::Post::base_set{$self->{'VAL'}[$i]}) { }
0 196 elsif ($Font::TTF::Post::base_set{$self->{'VAL'}[$i]} != $i) { }
225 0 0 $Font::TTF::Post::no25 ? :
231 0 2 if int $self->{'FormatType'} + 0.4 == 3
233 0 2 if (int $self->{'FormatType'} + 0.5 == 2) { }
0 2 elsif (int $self->{'FormatType'} * 2 + 0.5 == 5) { }
241 0 0 if (defined $Font::TTF::Post::base_set{$self->{'VAL'}[$i]}) { }
259 0 0 defined $Font::TTF::Post::base_set{$self->{'VAL'}[$i]} ? :
279 0 0 unless $key eq 'STRINGS' or $key eq 'VAL'
280 0 0 unless $key eq 'VAL'