line |
true |
false |
branch |
32
|
0 |
384 |
if ($^X =~ / jperl /imosx) |
52
|
0 |
1152 |
if ($] < 5.006) { } |
138
|
0 |
384 |
if (&Ebig5plus::e("$filename.e")) |
139
|
0 |
0 |
if (exists $ENV{'CHAR_DEBUG'}) { } |
|
0 |
0 |
elsif (&Ebig5plus::z("$filename.e")) { } |
179
|
0 |
0 |
if ($mtime_escape < $mtime_source or $mtime_escape < $mtime_filter) |
185
|
384 |
0 |
unless (&Ebig5plus::e("$filename.e")) |
187
|
0 |
384 |
unless Ebig5plus::_open_a($fh, "$filename.e") |
195
|
0 |
384 |
if (do {
exists $ENV{'CHAR_NONBLOCK'}
}) { } |
218
|
0 |
0 |
if ($@) |
227
|
0 |
384 |
unless seek $fh, 0, 0 |
235
|
0 |
384 |
unless close $fh |
239
|
0 |
384 |
unless Ebig5plus::_open_r($fh, "$filename.e") |
241
|
0 |
384 |
if (do {
exists $ENV{'CHAR_NONBLOCK'}
}) { } |
245
|
0 |
0 |
if ($@) |
254
|
0 |
384 |
if ($^W) |
257
|
0 |
384 |
if (defined $^I) |
297
|
0 |
384 |
if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) { } |
329
|
0 |
0 |
if ($word =~ / [ ] /mosx) { } |
358
|
0 |
384 |
unless Ebig5plus::_open_r($fh, $script) |
361
|
0 |
384 |
unless close $fh |
363
|
0 |
384 |
if (/^ use Ebig5plus(?:(?>\s+)(?>[0-9\.]*))?(?>\s*); $/mosx) { } |
369
|
0 |
384 |
if (s/\A(#!.+?\n)//mos) |
376
|
0 |
384 |
if (s/\A(\@rem(?>\s*)=(?>\s*)'.*?'(?>\s*);\s*\n)//mos) |
390
|
0 |
384 |
if (s/(.*^#(?>\s*)line(?>\s+)(?>[0-9]+)(?:(?>\s+)"(?:$q_char)+?")?\s*\n)//mos) |
409
|
384 |
0 |
if (s/^ (?>\s*) use (?>\s+) (?: Char | Big5Plus ) (?>\s*) ([^\x81-\xFE;]*) ; \s* \n? $//mosx) |
413
|
0 |
384 |
if ($list =~ s/\A ((?>[0-9]+)\.(?>[0-9]+)) \.0 (?>\s*) //mosx) { } |
|
0 |
384 |
elsif ($list =~ s/\A ((?>[0-9]+)(?>\.[0-9]*)) (?>\s*) //mosx) { } |
415
|
0 |
0 |
if ($version ne $Big5Plus::VERSION) |
418
|
0 |
0 |
if (scalar keys %file >= 2) |
437
|
0 |
0 |
if ($version > $Big5Plus::VERSION) |
443
|
0 |
384 |
unless ($list =~ /\A (?>\s*) \z/mosx) |
447
|
0 |
0 |
if /\A ord \z/mosx |
448
|
0 |
0 |
if /\A ord \z/mosx |
449
|
0 |
0 |
if /\A reverse \z/mosx |
450
|
0 |
0 |
if /\A getc \z/mosx |