Branch Coverage

blib/lib/EUCTW.pm
Criterion Covered Total %
branch 23 74 31.0


line true false branch
31 0 325 if ($^X =~ / jperl /imosx)
66 325 0 if (eval { do { local $@; CORE::require strict } })
148 0 325 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 325 0 unless (-e "$filename.e")
198 325 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 Eeuctw::_open_a($fh, "$filename.e")
210 0 325 if (do { exists $ENV{'CHAR_NONBLOCK'} }) { }
233 0 0 if ($@)
242 0 325 unless seek $fh, 0, 0
250 0 325 unless close $fh
254 0 325 unless Eeuctw::_open_r($fh, "$filename.e")
256 0 325 if (do { exists $ENV{'CHAR_NONBLOCK'} }) { }
260 0 0 if ($@)
269 0 325 if ($^W)
272 0 325 if (defined $^I)
310 0 325 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) { }
339 0 0 if ($word =~ / [ ] /mosx) { }
368 0 325 unless Eeuctw::_open_r($fh, $script)
371 0 325 unless close $fh
373 0 325 if (/^ use Eeuctw(?:(?>\s+)(?>[0-9\.]*))?(?>\s*); $/mosx) { }
379 0 325 if (s/\A(#!.+?\n)//mos)
386 0 325 if (s/\A(\@rem(?>\s*)=(?>\s*)'.*?'(?>\s*);\s*\n)//mos)
400 0 325 if (s/(.*^#(?>\s*)line(?>\s+)(?>[0-9]+)(?:(?>\s+)"(?:$q_char)+?")?\s*\n)//mos)
419 325 0 if (s/^ (?>\s*) use (?>\s+) (?: Char | EUCTW ) (?>\s*) ([^\x8E\xA1-\xFE;]*) ; \s* \n? $//mosx)
423 0 325 if ($list =~ s/\A ((?>[0-9]+)\.(?>[0-9]+)) \.0 (?>\s*) //mosx) { }
0 325 elsif ($list =~ s/\A ((?>[0-9]+)(?>\.[0-9]*)) (?>\s*) //mosx) { }
425 0 0 if ($version ne $EUCTW::VERSION)
428 0 0 if (scalar keys %file >= 2)
447 0 0 if ($version > $EUCTW::VERSION)
453 0 325 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