Branch Coverage

blib/lib/USASCII.pm
Criterion Covered Total %
branch 12 74 16.2


line true false branch
31 0 200 if ($^X =~ / jperl /imosx)
66 200 0 if (eval { do { local $@; CORE::require strict } })
148 200 0 if (-e "$filename.e")
149 0 200 if (exists $ENV{'SJIS_DEBUG'}) { }
0 200 elsif (-z "$filename.e") { }
189 0 200 if ($mtime_escape < $mtime_source or $mtime_escape < $mtime_filter)
195 0 200 unless (-e "$filename.e")
198 0 0 if (eval ' use Fcntl qw(O_WRONLY O_APPEND O_CREAT); 1 ' and sysopen $fh, "$filename.e", &O_WRONLY | &O_APPEND | &O_CREAT) { }
201 0 0 unless Eusascii::_open_a($fh, "$filename.e")
210 0 0 if (do { exists $ENV{'CHAR_NONBLOCK'} }) { }
233 0 0 if ($@)
242 0 0 unless seek $fh, 0, 0
250 0 0 unless close $fh
254 0 200 unless Eusascii::_open_r($fh, "$filename.e")
256 0 200 if (do { exists $ENV{'CHAR_NONBLOCK'} }) { }
260 0 0 if ($@)
269 0 200 if ($^W)
272 0 200 if (defined $^I)
310 0 200 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) { }
339 0 0 if ($word =~ / [ ] /mosx) { }
368 0 0 unless Eusascii::_open_r($fh, $script)
371 0 0 unless close $fh
373 0 0 if (/^ use Eusascii(?:(?>\s+)(?>[0-9\.]*))?(?>\s*); $/mosx) { }
379 0 0 if (s/\A(#!.+?\n)//mos)
386 0 0 if (s/\A(\@rem(?>\s*)=(?>\s*)'.*?'(?>\s*);\s*\n)//mos)
400 0 0 if (s/(.*^#(?>\s*)line(?>\s+)(?>[0-9]+)(?:(?>\s+)"(?:$q_char)+?")?\s*\n)//mos)
419 0 0 if (s/^ (?>\s*) use (?>\s+) (?: Char | USASCII ) (?>\s*) ([^;]*) ; \s* \n? $//mosx)
423 0 0 if ($list =~ s/\A ((?>[0-9]+)\.(?>[0-9]+)) \.0 (?>\s*) //mosx) { }
0 0 elsif ($list =~ s/\A ((?>[0-9]+)(?>\.[0-9]*)) (?>\s*) //mosx) { }
425 0 0 if ($version ne $USASCII::VERSION)
428 0 0 if (scalar keys %file >= 2)
447 0 0 if ($version > $USASCII::VERSION)
453 0 0 unless ($list =~ /\A (?>\s*) \z/mosx)
457 0 0 if /\A ord \z/mosx
458 0 0 if /\A ord \z/mosx
459 0 0 if /\A reverse \z/mosx
460 0 0 if /\A getc \z/mosx