| line |
true |
false |
branch |
|
28
|
0 |
197 |
if ($^X =~ / jperl /imosx) |
|
63
|
197 |
0 |
if (eval {
do {
local $@;
CORE::require strict
}
}) |
|
145
|
197 |
0 |
if (-e "$filename.e") |
|
146
|
0 |
197 |
if (exists $ENV{'SJIS_DEBUG'}) { } |
|
|
0 |
197 |
elsif (-z "$filename.e") { } |
|
186
|
0 |
197 |
if ($mtime_escape < $mtime_source or $mtime_escape < $mtime_filter) |
|
192
|
0 |
197 |
unless (-e "$filename.e") |
|
195
|
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) { } |
|
198
|
0 |
0 |
unless Char::Egreek::_open_a($fh, "$filename.e") |
|
201
|
0 |
0 |
if (do {
exists $ENV{'SJIS_NONBLOCK'}
}) { } |
|
235
|
0 |
0 |
unless seek $fh, 0, 0 |
|
243
|
0 |
0 |
unless close $fh |
|
247
|
0 |
197 |
unless Char::Egreek::_open_r($fh, "$filename.e") |
|
249
|
0 |
197 |
if (do {
exists $ENV{'SJIS_NONBLOCK'}
}) { } |
|
264
|
0 |
197 |
if ($^W) |
|
301
|
0 |
197 |
if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) { } |
|
330
|
0 |
0 |
if ($word =~ / [ ] /mosx) { } |
|
359
|
0 |
0 |
unless Char::Egreek::_open_r($fh, $script) |
|
362
|
0 |
0 |
unless close $fh |
|
364
|
0 |
0 |
if (/^ use Char::Egreek(?:\s+[0-9\.]*)?\s*; $/mosx) { } |
|
370
|
0 |
0 |
if (s/\A(#!.+?\n)//mos) |
|
377
|
0 |
0 |
if (s/\A(\@rem\s*=\s*'.*?'\s*;\s*\n)//mos) |
|
391
|
0 |
0 |
if (s/(.*^#\s*line\s+\d+(?:\s+"(?:$q_char)+?")?\s*\n)//mos) |
|
410
|
0 |
0 |
if (s/^ \s* use \s+ Char::Greek \s* ([^;]*) ; \s* \n? $//mosx) |
|
414
|
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) { } |
|
416
|
0 |
0 |
if ($version ne $Char::Greek::VERSION) |
|
419
|
0 |
0 |
if (scalar keys %file >= 2) |
|
438
|
0 |
0 |
if ($version > $Char::Greek::VERSION) |
|
444
|
0 |
0 |
unless ($list =~ /\A \s* \z/mosx) |
|
448
|
0 |
0 |
if /\A ord \z/mosx |
|
449
|
0 |
0 |
if /\A ord \z/mosx |
|
450
|
0 |
0 |
if /\A reverse \z/mosx |
|
451
|
0 |
0 |
if /\A getc \z/mosx |