Branch Coverage

blib/lib/Text/Sprintf/Zenkaku.pm
Criterion Covered Total %
branch 56 56 100.0


line true false branch
24 89 25 if ($w >= 0) { }
36 93 2 defined $argv[0] ? :
49 314 555 if ($state eq 'IDL') { }
377 178 elsif ($state eq 'READ_FORMAT') { }
46 132 elsif ($state eq 'READ_ARGUMENT_NUMBER') { }
50 187 127 if ($s eq '%') { }
57 3 374 if ($s eq '%') { }
123 251 elsif ($s eq 's') { }
59 192 elsif ($s =~ /$conversions/) { }
27 165 elsif ($s eq '*') { }
109 56 elsif ($s =~ /\A[0-9]\Z/) { }
55 1 elsif ($s =~ /\A[-+ #\.v]\Z/) { }
67 7 116 if ($tmp =~ /^%([1-9][0-9]*)\$( *)\*([1-9][0-9]*)\$s$/) { }
2 114 elsif ($tmp =~ /^%([1-9][0-9]*)\$( *)\*s$/) { }
2 112 elsif ($tmp =~ /^%([1-9][0-9]*)\$( *)(-?[0-9]+)s$/) { }
1 111 elsif ($tmp =~ /^%([1-9][0-9]*)\$( *)s$/) { }
9 102 elsif ($tmp =~ /^%( *)\*([1-9][0-9]*)\$s$/) { }
4 98 elsif ($tmp =~ /^%( *)\*s$/) { }
90 8 elsif ($tmp =~ /^%( *)(-?[0-9]+)s$/) { }
76 6 1 if (not exists $is_uniq->{$w_index}) { }
92 1 1 if (not exists $is_uniq->{$w_index}) { }
125 8 1 if (not exists $is_uniq->{$w_index}) { }
144 2 2 if (not exists $is_uniq->{$w_index}) { }
188 2 53 if ($tmp =~ /\*v/)
195 19 27 if ($s =~ /\A[0-9]\Z/) { }
19 8 elsif ($s eq '$') { }
207 23 109 if ($s =~ /\A[0-9]\Z/) { }
12 97 elsif ($s eq '$') { }