Branch Coverage

blib/lib/GBK.pm
Criterion Covered Total %
branch 24 74 32.4


line true false branch
3 0 386 if $] < 5.006
33 0 386 if ($^X =~ / jperl /imosx)
53 0 1158 if ($] < 5.006) { }
139 0 386 if (&Egbk::e("$filename.e"))
140 0 0 if (exists $ENV{'CHAR_DEBUG'}) { }
0 0 elsif (&Egbk::z("$filename.e")) { }
180 0 0 if ($mtime_escape < $mtime_source or $mtime_escape < $mtime_filter)
186 386 0 unless (&Egbk::e("$filename.e"))
188 0 386 unless Egbk::_open_a($fh, "$filename.e")
196 0 386 if (do { exists $ENV{'CHAR_NONBLOCK'} }) { }
219 0 0 if ($@)
228 0 386 unless seek $fh, 0, 0
236 0 386 unless close $fh
240 0 386 unless Egbk::_open_r($fh, "$filename.e")
242 0 386 if (do { exists $ENV{'CHAR_NONBLOCK'} }) { }
246 0 0 if ($@)
255 0 386 if ($^W)
258 0 386 if (defined $^I)
298 0 386 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) { }
330 0 0 if ($word =~ / [ ] /mosx) { }
359 0 386 unless Egbk::_open_r($fh, $script)
362 0 386 unless close $fh
364 0 386 if (/^ use Egbk(?:(?>\s+)(?>[0-9\.]*))?(?>\s*); $/mosx) { }
370 0 386 if (s/\A(#!.+?\n)//mos)
377 0 386 if (s/\A(\@rem(?>\s*)=(?>\s*)'.*?'(?>\s*);\s*\n)//mos)
391 0 386 if (s/(.*^#(?>\s*)line(?>\s+)(?>[0-9]+)(?:(?>\s+)"(?:$q_char)+?")?\s*\n)//mos)
410 386 0 if (s/^ (?>\s*) use (?>\s+) (?: Char | GBK ) (?>\s*) ([^\x81-\xFE;]*) ; \s* \n? $//mosx)
414 0 386 if ($list =~ s/\A ((?>[0-9]+)\.(?>[0-9]+)) \.0 (?>\s*) //mosx) { }
0 386 elsif ($list =~ s/\A ((?>[0-9]+)(?>\.[0-9]*)) (?>\s*) //mosx) { }
416 0 0 if ($version ne $GBK::VERSION)
419 0 0 if (scalar keys %file >= 2)
438 0 0 if ($version > $GBK::VERSION)
444 0 386 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