Branch Coverage

blib/lib/Greek.pm
Criterion Covered Total %
branch 28 74 37.8


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 Egreek::_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 Egreek::_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 Egreek::_open_r($fh, $script)
371 0 200 unless close $fh
373 0 200 if (/^ use Egreek(?:(?>\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 | Greek ) (?>\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 $Greek::VERSION)
428 0 0 if (scalar keys %file >= 2)
447 0 0 if ($version > $Greek::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