Branch Coverage

Char/Greek.pm
Criterion Covered Total %
branch 11 68 16.1


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