Branch Coverage

lib/IOas/CP932IBM.pm
Criterion Covered Total %
branch 26 34 76.4


line true false branch
18 0 12 if $] < 5.006
28 0 12 if (defined $_[0] and $_[0] =~ /\A[0123456789]/)
29 0 0 if ($_[0] != $IOas::CP932IBM::VERSION)
46 56 2 if (defined $s)
76 9 9 @_ ? :
85 2 4 if (@_ == 4) { }
2 2 elsif (@_ == 3) { }
122 2 2 @_ ? :
124 4 0 if ($io_encoding =~ /^(?:cp932ibm|cp932|cp932ibm|cp932nec|sjis2004)$/)
125 4 0 if ($octet =~ /\A[\x81-\x9F\xE0-\xFC]\z/)
129 0 4 if ($io_encoding eq 'cp932x' and $octet eq "\234Z")
139 26 6 @_ ? :
140 2 30 wantarray ? :
144 8 2 @_ >= 1 && defined fileno &Symbol::qualify_to_ref($_[0], scalar caller()) ? :
145 8 2 @_ ? :
149 10 10 @_ >= 1 && defined fileno &Symbol::qualify_to_ref($_[0], scalar caller()) ? :
150 20 0 @_ ? :