| line |
true |
false |
branch |
|
31
|
0 |
200 |
if ($^X =~ / jperl /imosx) |
|
66
|
200 |
0 |
if (eval {
do {
local $@;
CORE::require strict
}
}) |
|
148
|
0 |
200 |
if (-e "$filename.e") |
|
149
|
0 |
0 |
if (exists $ENV{'CHAR_DEBUG'}) { } |
|
|
0 |
0 |
elsif (-z "$filename.e") { } |
|
189
|
0 |
0 |
if ($mtime_escape < $mtime_source or $mtime_escape < $mtime_filter) |
|
195
|
200 |
0 |
unless (-e "$filename.e") |
|
198
|
200 |
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 Etis620::_open_a($fh, "$filename.e") |
|
210
|
0 |
200 |
if (do {
exists $ENV{'CHAR_NONBLOCK'}
}) { } |
|
233
|
0 |
0 |
if ($@) |
|
242
|
0 |
200 |
unless seek $fh, 0, 0 |
|
250
|
0 |
200 |
unless close $fh |
|
254
|
0 |
200 |
unless Etis620::_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 |
200 |
unless Etis620::_open_r($fh, $script) |
|
371
|
0 |
200 |
unless close $fh |
|
373
|
0 |
200 |
if (/^ use Etis620(?:(?>\s+)(?>[0-9\.]*))?(?>\s*); $/mosx) { } |
|
379
|
0 |
200 |
if (s/\A(#!.+?\n)//mos) |
|
386
|
0 |
200 |
if (s/\A(\@rem(?>\s*)=(?>\s*)'.*?'(?>\s*);\s*\n)//mos) |
|
400
|
0 |
200 |
if (s/(.*^#(?>\s*)line(?>\s+)(?>[0-9]+)(?:(?>\s+)"(?:$q_char)+?")?\s*\n)//mos) |
|
419
|
200 |
0 |
if (s/^ (?>\s*) use (?>\s+) (?: Char | TIS620 ) (?>\s*) ([^;]*) ; \s* \n? $//mosx) |
|
423
|
0 |
200 |
if ($list =~ s/\A ((?>[0-9]+)\.(?>[0-9]+)) \.0 (?>\s*) //mosx) { } |
|
|
0 |
200 |
elsif ($list =~ s/\A ((?>[0-9]+)(?>\.[0-9]*)) (?>\s*) //mosx) { } |
|
425
|
0 |
0 |
if ($version ne $TIS620::VERSION) |
|
428
|
0 |
0 |
if (scalar keys %file >= 2) |
|
447
|
0 |
0 |
if ($version > $TIS620::VERSION) |
|
453
|
3 |
197 |
unless ($list =~ /\A (?>\s*) \z/mosx) |
|
457
|
0 |
3 |
if /\A ord \z/mosx |
|
458
|
0 |
3 |
if /\A ord \z/mosx |
|
459
|
0 |
3 |
if /\A reverse \z/mosx |
|
460
|
3 |
0 |
if /\A getc \z/mosx |