Branch Coverage

/home/pjcj/g/Test-Smoke/perl-current-gcov/TestInit.pm
Criterion Covered Total %
branch 24 34 70.6


line true false branch
37 1697 1069 if ($_ eq 'U2T') { }
70 999 elsif ($_ eq 'U1') { }
480 519 elsif ($_ eq 'NC') { }
506 13 elsif ($_ eq 'A') { }
13 0 elsif ($_ eq 'T') { }
48 13 0 unless -f 't/TEST' and -f 'MANIFEST' and -d 'lib' and -d 'ext'
60 446 1780 unless ($setopt)
61 0 446 if (-f 't/TEST' and -f 'MANIFEST' and -d 'lib' and -d 'ext') { }
65 0 0 if ($0 =~ s[^((?:ext|dist|cpan)[\\/][^\\/]+)[\\/](.*\.t)$][$2]) { }
83 13 2213 if (defined $chdir)
84 0 13 unless chdir $chdir
87 506 1720 if ($abs)
94 1780 446 if ($setopt)
96 0 1780 if ($^O eq 'VMS') { }
0 1780 elsif ($^O eq 'MSWin32') { }
105 0 1780 if (exists $ENV{'PERL5LIB'}) { }
112 2226 0 unless ${^TAINT}