Branch Coverage

blib/lib/Font/TTF/Utils.pm
Criterion Covered Total %
branch 61 132 46.2


line true false branch
40 119 0 if ($inval) { }
44 0 119 unless defined $key and $key ne ''
45 119 0 if ($val =~ /^(\+?)(\d*)(\D+)(\d*)/io)
48 1 118 if ($rel eq '+') { }
0 118 elsif ($2 ne '') { }
55 0 119 unless defined $len
56 7 112 if not defined $pos or $pos eq ''
58 27 92 if ($val eq 'f' or $val eq 'v' or $val =~ /^[l]/io) { }
82 10 elsif ($val eq 'F' or $val =~ /^[s]/io) { }
59 4 23 $len ne '' ? :
61 0 82 $len ne '' ? :
63 0 10 $len ne '' ? :
86 0 1134 if $pos eq ''
87 4 1130 if ($arrlen ne '') { }
127 2292 10 if not defined $arrlen or $arrlen eq ''
128 2 2300 if $arrlen eq '*'
132 6 2328 if ($type eq 'f') { }
6 2322 elsif ($type eq 'v') { }
0 2322 elsif ($type eq 'F') { }
36 2286 elsif ($type =~ /^[l]/io) { }
2266 20 elsif ($type =~ /^[s]/io) { }
0 20 elsif ($type eq 'c') { }
136 0 6 if $res > 32767
143 0 6 if $res > 32767
153 0 0 if $res > 1
161 0 36 if $type eq 'l' and $res >= 2147483648
167 572 1694 if $type eq 's' and $res >= 32768
182 10 2292 wantarray ? :
202 4 190 if ($arrlen ne '') { }
229 0 196 if $arrlen eq '*'
230 192 4 if $arrlen eq ''
235 6 194 if ($type eq 'f') { }
6 188 elsif ($type eq 'v') { }
0 188 elsif ($type eq 'F') { }
36 152 elsif ($type =~ /^[l]/io) { }
132 20 elsif ($type =~ /^[s]/io) { }
0 20 elsif ($type eq 'c') { }
243 6 0 if ($res =~ s/\.(\d+)$//o) { }
260 0 36 if $type eq 'L' and $res < 0
265 0 132 if $type eq 'S' and $res < 0
313 122 0 if $] >= 5.006
317 0 0 if ($dat < 128) { }
0 0 elsif ($dat < 2048) { }
0 0 elsif ($dat >= 55296 and $dat < 56320) { }
349 122 0 if $^V ge v5.6.0
354 0 0 if ($str =~ s/^([\x00-\x7F]+)//o) { }
0 0 elsif ($str =~ s/^([\xC0-\xDF])([\x80-\xBF])//o) { }
0 0 elsif ($str =~ s/^([\0xE0-\xEF])([\x80-\xBF])([\x80-\xBF])//o) { }
0 0 elsif ($str =~ s/^([\xF0-\xF7])([\x80-\xBF])([\x80-\xBF])([\x80-\xBF])//o) { }
0 0 elsif ($str =~ s/^[\xF8-\xFF][\x80-\xBF]*//o) { }
463 0 0 unless defined $num
464 0 0 unless defined $text
466 0 0 if ($num != 0)
468 0 0 if ($num < 0)
471 0 0 $num == -1 ? :
475 0 0 $size == 1 ? :
491 0 0 unless defined $hints{$words[0]}
494 0 0 if ($hints[$num][1] < 0) { }
0 0 elsif ($hints[$num][1] > 0) { }
496 0 0 $hints[$num][1] == -1 ? :
497 0 0 $hints[$num][2] == 1 ? :
501 0 0 $hints[$num][2] == 1 ? :
591 0 0 $j & 1 ? :
592 0 0 $j & 1 ? :
593 0 0 $j & 1 ? :
606 0 0 if $cmap