Branch Coverage

blib/lib/KPS9566.pm
Criterion Covered Total %
branch 23 72 31.9


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