Branch Coverage

blib/lib/Text/FIGlet/Font.pm
Criterion Covered Total %
branch 82 116 70.6


line true false branch
19 1 16 if defined $$self{-'m'} and $$self{-'m'} eq '-0'
36 17 0 unless -e $$self{'_file'}
41 17 0 if (not $@) { }
46 0 0 unless open $$self{'_fh'}, '<' . $$self{'_file'}
49 0 0 unless $] < 5.006
55 0 17 unless $header =~ /^[ft]lf2/
64 3 14 if (defined $$self{-'m'} and $$self{-'m'} eq '-2')
73 0 1615 unless &_load_char($self, $i)
77 17 0 unless (eof $fh)
81 0 119 unless &_load_char($self, $D{$k})
83 1 16 if ($$self{-'D'})
92 8 9 unless $$self{-'U'}
99 0 1636 unless $2
103 0 1636 if ($val > 'Text::FIGlet'->PRIVb and $$self{-'U'} == -1) { }
109 0 1636 unless &_load_char($self, $val)
116 1 16 if (defined $$self{-'m'} and $$self{-'m'} == -3) { }
11 5 elsif (defined $$self{-'m'} and $$self{-'m'} == -1) { }
5 0 elsif (not defined $$self{-'m'} or $$self{-'m'} > -1) { }
119 410 324 unless defined $$font[$ord]
122 0 1944 unless defined $$font[$ord][2]
125 1944 0 if $$font[$ord][1]
138 22612 1376 unless defined $$font[$ord]
140 0 6528 unless $$font[$ord][$i]
142 5281 1247 if $$font[$ord][1]
152 1045684 1621 unless defined $$font[$ord]
154 0 9726 unless $$font[$ord][$i]
156 9720 6 if $$font[$ord][1]
178 3370 15122 unless ($REtrail)
184 17359 1133 if ($wLead and s/^(\s+)//) { }
185 7578 9781 if ($l = length $1) < $wLead
190 0 18492 if ($wTrail and /$REtrail/) { }
191 0 0 if ($l = length $1) < $wTrail
196 7345 11147 if ($l = UTF8len($_) - (s/(\Q$end\E+)$/$end/ && UTF8len($1))) > $length
201 79 3291 if $i < 126 and $$self{'_maxLen'} < $length
223 0 20 $$self{'_header'}[6] ? :
224 1 20 if ($opts{-'X'} eq 'R')
229 0 21 unless $/ eq "\n"
230 1 20 if (defined $$self{-'m'} and $$self{-'m'} == -3) { }
20 0 elsif ($opts{-'w'} > 0) { }
232 0 1 if $Text::Wrap::columns < 2
234 1 0 if $] >= 5.008
237 20 0 if $] >= 5.008
239 20 0 unless ($opts{-'w'} == 1)
242 8 114 $opts{-'U'} ? :
256 9 12 defined $$self{-'m'} && $$self{-'m'} < 0 ? :
261 8 126 $opts{-'U'} ? :
264 5 106 $opts{-'U'} ? :
270 585 0 if ($$font[$lchar]) { }
271 585 0 if $$font[$lchar][$i]
283 13 10 if (not defined $$self{-'m'} or $$self{-'m'} > -1)
293 3 297 if ($i == scalar(@lines) - 1 and $matches == scalar @lines)
307 1 18 $opts{-'X'} eq 'R' ? :
310 18 111 if (not defined $$self{-'m'} or $$self{-'m'} > 0) { }
322 6 123 if ($opts{-'x'} eq 'c') { }
12 111 elsif ($opts{-'x'} eq 'r') { }
334 0 21 if ($] < 5.006) { }
335 0 0 wantarray ? :
339 0 21 wantarray ? :