Branch Coverage

blib/lib/ShiftJIS/Regexp/Class.pm
Criterion Covered Total %
branch 193 260 74.2


line true false branch
23 326 152 length $_[0] > 1 ? :
27 362 0 255 < $_[0] ? :
34 412 216 if (1 == length $c)
36 34 1 97 <= $o && $o <= 122 ? :
0 35 65 <= $o && $o <= 90 ? :
35 377 $mod =~ /i/ ? :
45 0 170 $c =~ /^\x81([\x54-\x55])$/ && $mod =~ /j/ ? :
2 170 $c =~ /^\x81([\x52-\x53])$/ && $mod =~ /j/ ? :
6 172 $c =~ /^\x83([\x80-\x93])$/ && $mod =~ /j/ ? :
4 178 $c =~ /^\x83([\x40-\x7E])$/ && $mod =~ /j/ ? :
2 182 $c =~ /^\x82([\xDE-\xF1])$/ && $mod =~ /j/ ? :
18 184 $c =~ /^\x82([\x9F-\xDD])$/ && $mod =~ /j/ ? :
0 202 $c =~ /^\x84([\x80-\x91])$/ && $mod =~ /I/ ? :
0 202 $c =~ /^\x84([\x70-\x7E])$/ && $mod =~ /I/ ? :
0 202 $c =~ /^\x84([\x4F-\x60])$/ && $mod =~ /I/ ? :
0 202 $c =~ /^\x84([\x40-\x4E])$/ && $mod =~ /I/ ? :
8 202 $c =~ /^\x83([\xBF-\xD6])$/ && $mod =~ /I/ ? :
0 210 $c =~ /^\x83([\x9F-\xB6])$/ && $mod =~ /I/ ? :
5 210 $c =~ /^\x82([\x81-\x9A])$/ && $mod =~ /I/ ? :
1 215 $c =~ /^\x82([\x60-\x79])$/ && $mod =~ /I/ ? :
87 1 0 if (s/^\{//) { }
88 1 0 if (s/^([0-9A-Za-z]+)\}//) { }
0 0 elsif (s/^([0-9A-Za-z]*(?![0-9A-Za-z])$ShiftJIS::Regexp::Class::Char)//o) { }
113 206 226 if (s/^\{//) { }
114 2 204 s/^\^// ? :
116 206 0 if (s/^([0-9A-Za-z]+)\}//) { }
0 0 elsif (s/^([0-9A-Za-z]*(?![0-9A-Za-z])$ShiftJIS::Regexp::Class::Char)//o) { }
126 4 222 s/^\^// ? :
127 226 0 if (s/^([\x21-\x7e])//) { }
0 0 elsif (s/^($ShiftJIS::Regexp::Class::Char)//o) { }
138 6 426 if ($rev)
139 3 3 $p eq 'p' ? :
154 43 43 s/^\^// ? :
155 86 0 if (s/^([0-9A-Za-z]+)\:\]//) { }
0 0 elsif (s/^([0-9A-Za-z]*(?![:])$ShiftJIS::Regexp::Class::Char)//o) { }
165 43 43 $rev ? :
175 0 1138 if ($_ eq '\\')
178 0 1138 if (s/^\\([0-7][0-7][0-7])//)
181 499 639 if (s/^\\x//)
182 179 320 if (s/^([0-9A-Fa-f][0-9A-Fa-f])//)
185 320 0 if (s/^\{([0-9A-Fa-f]{4})\}//)
188 0 0 if (length $_) { }
194 62 577 if (s/^\\c//)
195 62 0 if (s/([\x00-\x7F])//)
198 0 0 if (length $_) { }
204 5 572 if (s/^\\a//)
205 3 569 if (s/^\\b//)
206 3 566 if (s/^\\e//)
207 5 561 if (s/^\\f//)
208 5 556 if (s/^\\n//)
209 5 551 if (s/^\\r//)
210 5 546 if (s/^\\t//)
211 14 532 if (s/^\\0//)
212 0 532 if (s/^\\([0-9A-Za-z])//)
215 532 0 if (s/^\\?($ShiftJIS::Regexp::Class::Char)//o)
239 0 239 if ($fr > $to)
241 66 173 if ($fr <= 127)
242 0 66 $fr < 0 ? :
243 6 60 $to > 127 ? :
244 2 64 if ($ini == $fin) { }
64 0 elsif ($ini < $fin) { }
247 12 52 if ($mod =~ /i/) { }
249 131 152 if 65 <= $i and $i <= 90
250 112 171 if 97 <= $i and $i <= 122
257 78 161 if ($fr <= 223)
258 66 12 $fr < 161 ? :
259 4 74 $to > 223 ? :
260 0 78 if ($ini == $fin) { }
18 60 elsif ($ini < $fin) { }
267 78 161 $fr < 33088 ? :
268 0 239 $to > 64764 ? :
269 165 74 if ($ini <= $fin)
272 111 54 if ($ini_f == $fin_f) { }
273 0 8 $fin_t == 128 ? :
5 8 $ini_t == 126 ? :
0 13 $ini_t == 126 && $fin_t == 128 ? :
98 13 $fin_t <= 126 || 128 <= $ini_t ? :
0 111 $ini_t == $fin_t ? :
286 0 29 $ini_f == 159 ? :
25 29 $ini_t == 64 ? :
288 0 41 $fin_f == 224 ? :
13 41 $fin_t == 252 ? :
291 29 25 if ($ini_t != 64)
292 0 8 $ini_t == 126 ? :
20 8 128 <= $ini_t ? :
1 28 $ini_t == 252 ? :
301 45 9 if ($ini_c <= $fin_c)
302 0 18 $fin_c == 224 ? :
0 18 $ini_c == 159 ? :
0 18 $ini_c == 159 && $fin_c == 224 ? :
13 18 $fin_c <= 159 || 224 <= $ini_c ? :
14 31 $ini_c == $fin_c ? :
316 41 13 if ($fin_t != 252)
317 0 21 $fin_t == 128 ? :
19 21 $fin_t <= 126 ? :
1 40 $fin_t == 64 ? :
328 12 227 if ($mod =~ /I/)
339 16 80 if ($fr <= $$_[1] and $$_[0] <= $to)
340 16 0 $fr <= $$_[0] ? :
341 16 0 $$_[1] <= $to ? :
347 0 239 if ($mod =~ /j/)
356 0 0 if ($fr <= $$_[1] and $$_[0] <= $to)
357 0 0 $fr <= $$_[0] ? :
358 0 0 $$_[1] <= $to ? :
364 179 60 @retd ? :
381 874 1690 if (s/^\]//)
382 874 0 if (@re) { }
383 106 768 if ($state == 1) { }
0 768 elsif ($state == 2) { }
397 239 1451 if (s/^\-//)
398 0 239 if ($state == 0) { }
239 0 elsif ($state == 1) { }
0 0 elsif ($state == 2) { }
413 86 1365 if (s/^\[\://) { }
205 1160 elsif (s/^\\([pP])//) { }
18 1142 elsif (s/^(\\[dwsDWS])//) { }
4 1138 elsif (s/^\[=\\?([\\=])=\]//) { }
393 745 elsif (s/^\[=([^=]+)=\]//) { }
415 86 0 defined $ShiftJIS::Regexp::Class::Re{$key} ? :
419 205 0 defined $ShiftJIS::Regexp::Class::Re{$key} ? :
424 4 0 defined $ShiftJIS::Regexp::Class::Eq{$1} ? :
427 280 113 defined $ShiftJIS::Regexp::Class::Eq{$lit} ? :
430 706 745 if (defined $subclass)
431 0 706 if ($state == 1) { }
0 706 elsif ($state == 2) { }
442 161 584 if ($state == 1) { }
239 345 elsif ($state == 2) { }
456 0 874 if ($state != 4)
477 80 264 if ("$retv[-1]|$r" =~ /^ \[($InClassRe+)\] \| \[($InClassRe+)\] $/ox) { }
109 155 elsif ("$retv[-1]|$r" =~ /^ (\\x[0-9A-Fa-f]{2}) \[($InClassRe+)\] \| \1 \[($InClassRe+)\] $/ox) { }