Branch Coverage

blib/lib/GB18030.pm
Criterion Covered Total %
branch 22 70 31.4


line true false branch
32 0 384 if ($^X =~ / jperl /imosx)
133 0 384 if (&Egb18030::e("$filename.e"))
134 0 0 if (exists $ENV{'CHAR_DEBUG'}) { }
0 0 elsif (&Egb18030::z("$filename.e")) { }
174 0 0 if ($mtime_escape < $mtime_source or $mtime_escape < $mtime_filter)
180 384 0 unless (&Egb18030::e("$filename.e"))
182 0 384 unless Egb18030::_open_a($fh, "$filename.e")
190 0 384 if (do { exists $ENV{'CHAR_NONBLOCK'} }) { }
213 0 0 if ($@)
222 0 384 unless seek $fh, 0, 0
230 0 384 unless close $fh
234 0 384 unless Egb18030::_open_r($fh, "$filename.e")
236 0 384 if (do { exists $ENV{'CHAR_NONBLOCK'} }) { }
240 0 0 if ($@)
249 0 384 if ($^W)
252 0 384 if (defined $^I)
292 0 384 if ($^O =~ /\A (?: MSWin32 | NetWare | symbian | dos ) \z/mosx) { }
324 0 0 if ($word =~ / [ ] /mosx) { }
353 0 384 unless Egb18030::_open_r($fh, $script)
356 0 384 unless close $fh
358 0 384 if (/^ use Egb18030(?:(?>\s+)(?>[0-9\.]*))?(?>\s*); $/mosx) { }
364 0 384 if (s/\A(#!.+?\n)//mos)
371 0 384 if (s/\A(\@rem(?>\s*)=(?>\s*)'.*?'(?>\s*);\s*\n)//mos)
385 0 384 if (s/(.*^#(?>\s*)line(?>\s+)(?>[0-9]+)(?:(?>\s+)"(?:$q_char)+?")?\s*\n)//mos)
404 384 0 if (s/^ (?>\s*) use (?>\s+) (?: Char | GB18030 ) (?>\s*) ([^\x81-\xFE;]*) ; \s* \n? $//mosx)
408 0 384 if ($list =~ s/\A ((?>[0-9]+)\.(?>[0-9]+)) \.0 (?>\s*) //mosx) { }
0 384 elsif ($list =~ s/\A ((?>[0-9]+)(?>\.[0-9]*)) (?>\s*) //mosx) { }
410 0 0 if ($version ne $GB18030::VERSION)
413 0 0 if (scalar keys %file >= 2)
432 0 0 if ($version > $GB18030::VERSION)
438 0 384 unless ($list =~ /\A (?>\s*) \z/mosx)
442 0 0 if /\A ord \z/mosx
443 0 0 if /\A ord \z/mosx
444 0 0 if /\A reverse \z/mosx
445 0 0 if /\A getc \z/mosx