Branch Coverage

blib/lib/Text/WrapI18N.pm
Criterion Covered Total %
branch 15 46 32.6


line true false branch
52 2 26 if (length $text == 0)
56 0 26 if ($c eq "\n") { }
0 26 elsif ($w == -1) { }
58 0 0 if (length $text == 0)
71 25 1 if ($len + $wlen + $w <= $Text::WrapI18N::columns)
72 2 23 if ($c eq ' ' or $b) { }
85 1 0 if ($c eq ' ') { }
0 0 elsif ($wlen + $w <= $Text::WrapI18N::columns) { }
122 0 26 if (length $string == 0)
126 0 26 if ($l == 0 or $l == -1)
133 1 25 unless (defined $Text::WrapI18N::charmap)
137 0 26 if ($Text::WrapI18N::charmap =~ /UTF.8/i) { }
0 26 elsif ($Text::WrapI18N::charmap =~ /(^EUC)|(^GB)|(^BIG)/i) { }
139 0 0 if ($l == 3) { }
0 0 elsif ($l == 4) { }
159 0 0 if (ord substr($c, 0, 1) >= 128) { }
176 0 0 if ($u >= 12288 and $u <= 12591)
177 0 0 if ($u == 12298 or $u == 12300 or $u == 12302 or $u == 12304 or $u == 12308 or $u == 12310 or $u == 12312 or $u == 12314)
182 0 0 if ($u >= 12704 and $u <= 12735)
183 0 0 if ($u >= 12784 and $u <= 12799)
184 0 0 if ($u >= 13312 and $u <= 40959)
185 0 0 if ($u >= 63744 and $u <= 64255)
186 0 0 if ($u >= 131072 and $u <= 196607)