Branch Coverage

blib/lib/Font/TTF/Name.pm
Criterion Covered Total %
branch 16 82 19.5


line true false branch
127 0 2 unless $self->SUPER::read
142 122 0 if ($Font::TTF::Name::utf8)
144 32 90 if ($pid == 1 and defined $Font::TTF::Name::apple_encodings[0][$eid]) { }
0 90 elsif ($pid == 2 and $eid == 2 and @Font::TTF::Name::cp_1252) { }
90 0 elsif ($pid == 0 or $pid == 3 or $pid == 2 and $eid == 1) { }
171 0 2 unless $self->{' read'}
186 122 0 if ($Font::TTF::Name::utf8)
188 32 90 if ($pid == 1 and defined $Font::TTF::Name::apple_encodings[1][$eid]) { }
0 90 elsif ($pid == 2 and $eid == 2 and @Font::TTF::Name::cp_1252) { }
0 90 elsif ($pid == 2 and $eid == 0) { }
90 0 elsif ($pid == 0 or $pid == 3 or $pid == 2 and $eid == 1) { }
190 0 9786 unless $Font::TTF::Name::apple_encodings[1][$eid]{$_}
194 0 0 unless $Font::TTF::Name::cp_1252[1][$eid]{$_}
202 112 10 unless (defined $dedup{$str_trans})
217 0 0 unless $Font::TTF::Name::a->[0] <=> $Font::TTF::Name::b->[0] or $Font::TTF::Name::a->[1] <=> $Font::TTF::Name::b->[1] or $Font::TTF::Name::a->[2] <=> $Font::TTF::Name::b->[2]
247 0 0 unless $key eq 'strings'
251 0 0 unless ref $self->{'strings'}[$nid]
283 0 0 if ($tag eq 'string') { }
338 0 0 if ($lid == -1) { }
342 0 0 if (($res = $self->{'strings'}[$nid][$pid][$eid]{$k}) ne '')
350 0 0 if ($res ne '')
351 0 0 wantarray ? :
392 0 0 if $pid == 3
393 0 0 if $pid == 1
396 0 0 if (defined $self->{'strings'}[$nid][$pid][$eid])
401 0 0 if ($c->[0] == $pid and $c->[1] == $eid)
407 0 0 unless $isincover
411 0 0 unless not defined $lang or $self->match_lang($pid, $lid, $lang)
415 0 0 unless defined $cover[$c] and $cover[$c][0] == $pid and $cover[$c][1] == $eid
424 0 0 unless defined $c and scalar @$c
428 0 0 if $pid == 3
429 0 0 if $pid == 1
450 0 0 if $pid == 0
451 0 0 if $lang != 0 or $lang eq '0'
465 0 0 if ($pid == 3) { }
0 0 elsif ($pid == 1) { }
483 0 0 if ($pid == 3) { }
0 0 elsif ($pid == 1) { }
505 0 0 if (defined $self->{'strings'}[$nid])
509 0 0 if (defined $self->{'strings'}[$nid][$pid])
513 0 0 if (defined $self->{'strings'}[$nid][$pid][$eid] and not $ids{$pid}{$eid})