Branch Coverage

blib/lib/Sjis.pm
Criterion Covered Total %
branch 27 80 33.7


line true false branch
32 0 385 if ($^X =~ / jperl /imosx)
52 0 1155 if ($] < 5.006) { }
138 0 385 if (&Esjis::e("$filename.e"))
139 0 0 if (exists $ENV{'CHAR_DEBUG'}) { }
0 0 elsif (&Esjis::z("$filename.e")) { }
179 0 0 if ($mtime_escape < $mtime_source or $mtime_escape < $mtime_filter)
185 385 0 unless (&Esjis::e("$filename.e"))
187 0 385 unless Esjis::_open_a($fh, "$filename.e")
195 0 385 if (do { $^O eq 'MacOS' }) { }
0 385 elsif (exists $ENV{'CHAR_NONBLOCK'}) { }
224 0 0 if ($@)
233 0 385 unless seek $fh, 0, 0
241 0 385 if ($^O eq 'MacOS')
248 0 385 unless close $fh
252 0 385 unless Esjis::_open_r($fh, "$filename.e")
254 0 385 if (do { $^O eq 'MacOS' }) { }
0 385 elsif (exists $ENV{'CHAR_NONBLOCK'}) { }
264 0 0 if ($@)
273 0 385 if ($^W)
276 0 385 if (defined $^I)
316 0 385 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) { }
0 385 elsif ($^O eq 'MacOS') { }
363 0 0 if ($word =~ / [ ] /mosx) { }
398 0 385 unless Esjis::_open_r($fh, $script)
401 0 385 unless close $fh
403 0 385 if (/^ use Esjis(?:(?>\s+)(?>[0-9\.]*))?(?>\s*); $/mosx) { }
409 0 385 if (s/\A(#!.+?\n)//mos)
416 0 385 if (s/\A(\@rem(?>\s*)=(?>\s*)'.*?'(?>\s*);\s*\n)//mos)
430 0 385 if (s/(.*^#(?>\s*)line(?>\s+)(?>[0-9]+)(?:(?>\s+)"(?:$q_char)+?")?\s*\n)//mos)
449 385 0 if (s/^ (?>\s*) use (?>\s+) (?: Char | Sjis ) (?>\s*) ([^\x81-\x9F\xE0-\xFC;]*) ; \s* \n? $//mosx)
453 0 385 if ($list =~ s/\A ((?>[0-9]+)\.(?>[0-9]+)) \.0 (?>\s*) //mosx) { }
0 385 elsif ($list =~ s/\A ((?>[0-9]+)(?>\.[0-9]*)) (?>\s*) //mosx) { }
455 0 0 if ($version ne $Sjis::VERSION)
458 0 0 if (scalar keys %file >= 2)
477 0 0 if ($version > $Sjis::VERSION)
483 0 385 unless ($list =~ /\A (?>\s*) \z/mosx)
487 0 0 if /\A ord \z/mosx
488 0 0 if /\A ord \z/mosx
489 0 0 if /\A reverse \z/mosx
490 0 0 if /\A getc \z/mosx