| line |
true |
false |
branch |
|
3
|
0 |
386 |
if $] < 5.006 |
|
33
|
0 |
386 |
if ($^X =~ / jperl /imosx) |
|
53
|
0 |
1158 |
if ($] < 5.006) { } |
|
139
|
0 |
386 |
if (&Esjis::e("$filename.e")) |
|
140
|
0 |
0 |
if (exists $ENV{'CHAR_DEBUG'}) { } |
|
|
0 |
0 |
elsif (&Esjis::z("$filename.e")) { } |
|
180
|
0 |
0 |
if ($mtime_escape < $mtime_source or $mtime_escape < $mtime_filter) |
|
186
|
386 |
0 |
unless (&Esjis::e("$filename.e")) |
|
188
|
0 |
386 |
unless Esjis::_open_a($fh, "$filename.e") |
|
196
|
0 |
386 |
if (do {
$^O eq 'MacOS'
}) { } |
|
|
0 |
386 |
elsif (exists $ENV{'CHAR_NONBLOCK'}) { } |
|
225
|
0 |
0 |
if ($@) |
|
234
|
0 |
386 |
unless seek $fh, 0, 0 |
|
242
|
0 |
386 |
if ($^O eq 'MacOS') |
|
249
|
0 |
386 |
unless close $fh |
|
253
|
0 |
386 |
unless Esjis::_open_r($fh, "$filename.e") |
|
255
|
0 |
386 |
if (do {
$^O eq 'MacOS'
}) { } |
|
|
0 |
386 |
elsif (exists $ENV{'CHAR_NONBLOCK'}) { } |
|
265
|
0 |
0 |
if ($@) |
|
274
|
0 |
386 |
if ($^W) |
|
277
|
0 |
386 |
if (defined $^I) |
|
317
|
0 |
386 |
if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) { } |
|
|
0 |
386 |
elsif ($^O eq 'MacOS') { } |
|
364
|
0 |
0 |
if ($word =~ / [ ] /mosx) { } |
|
399
|
0 |
386 |
unless Esjis::_open_r($fh, $script) |
|
402
|
0 |
386 |
unless close $fh |
|
404
|
0 |
386 |
if (/^ use Esjis(?:(?>\s+)(?>[0-9\.]*))?(?>\s*); $/mosx) { } |
|
410
|
0 |
386 |
if (s/\A(#!.+?\n)//mos) |
|
417
|
0 |
386 |
if (s/\A(\@rem(?>\s*)=(?>\s*)'.*?'(?>\s*);\s*\n)//mos) |
|
431
|
0 |
386 |
if (s/(.*^#(?>\s*)line(?>\s+)(?>[0-9]+)(?:(?>\s+)"(?:$q_char)+?")?\s*\n)//mos) |
|
450
|
386 |
0 |
if (s/^ (?>\s*) use (?>\s+) (?: Char | Sjis ) (?>\s*) ([^\x81-\x9F\xE0-\xFC;]*) ; \s* \n? $//mosx) |
|
454
|
0 |
386 |
if ($list =~ s/\A ((?>[0-9]+)\.(?>[0-9]+)) \.0 (?>\s*) //mosx) { } |
|
|
0 |
386 |
elsif ($list =~ s/\A ((?>[0-9]+)(?>\.[0-9]*)) (?>\s*) //mosx) { } |
|
456
|
0 |
0 |
if ($version ne $Sjis::VERSION) |
|
459
|
0 |
0 |
if (scalar keys %file >= 2) |
|
478
|
0 |
0 |
if ($version > $Sjis::VERSION) |
|
484
|
0 |
386 |
unless ($list =~ /\A (?>\s*) \z/mosx) |
|
488
|
0 |
0 |
if /\A ord \z/mosx |
|
489
|
0 |
0 |
if /\A ord \z/mosx |
|
490
|
0 |
0 |
if /\A reverse \z/mosx |
|
491
|
0 |
0 |
if /\A getc \z/mosx |