Branch Coverage

blib/lib/Text/Hyphenate.pm
Criterion Covered Total %
branch 53 72 73.6


line true false branch
76 1347 33 if defined $bd
77 4 29 if $length > $target
91 12 1416 if $i == $#wordsets and $mode == $Text::Hyphenate::JUSTIFY
102 1083 345 if ($mode != $Text::Hyphenate::JUSTIFY) { }
105 3683 114 unless $w =~ /-$/
108 357 369 $mode == $Text::Hyphenate::CENTER ? :
357 726 $mode == $Text::Hyphenate::RAGGED_LEFT ? :
120 38 1181 if ($w =~ /-$/) { }
131 345 874 if $i == $#wds
151 4864 1380 if ($wl + $l <= $target) { }
154 4864 0 unless $w =~ /-$/
157 0 1380 if $Text::Hyphenate::DEBUG
158 840 540 if ($b >= $PENALTY)
160 0 840 if $Text::Hyphenate::DEBUG
163 152 204 if $longest + $l + 1 <= $target
165 152 688 if ($good_hyphen) { }
166 0 152 if $Text::Hyphenate::DEBUG
171 0 688 if $Text::Hyphenate::DEBUG
181 48 0 if @ln
195 762 78 if exists $cache{$word}
196 0 78 if $Text::Hyphenate::DEBUG
199 0 78 if (defined(my $res = $$exact{$word}))
200 0 0 if $Text::Hyphenate::DEBUG
228 166 1142 if (defined($value = $$hyphen{$substr}))
230 0 166 if $Text::Hyphenate::DEBUG > 2
232 172 446 if $1 > $result[$j]
236 16 1292 if ($pos == 0 and defined($value = $$beginhyphen{$substr}))
239 0 16 if $Text::Hyphenate::DEBUG > 2
241 16 41 if $1 > $result[$j]
245 16 1292 if ($restlength == $length and defined($value = $$endhyphen{$substr}))
248 0 16 if $Text::Hyphenate::DEBUG > 2
250 12 38 if $1 > $result[$j]
258 0 78 if (defined($value = $$bothhyphen{$word}))
260 0 0 if $Text::Hyphenate::DEBUG > 2
262 0 0 if $1 > $result[$j]
272 0 78 if $Text::Hyphenate::DEBUG