Branch Coverage

File:Test/Dpkg.pm
Coverage:34.4%

line%coveragebranch
82100TFif (defined $path) { }
8450TFif $test_mode ne "cpan"
1040TFif ($test_mode eq 'cpan') { }
1130TFif ($test_mode eq 'cpan') { }
1250TFif /$filter/
1500TFif (not $ENV{'AUTHOR_TESTING'})
1620TFif (@imports >= 1 and version::is_lax($imports[0]))
1700TFunless (eval "\n        package $package;\n        use $module $version \@imports;\n        1;\n    ")
17950TFif (not can_run($command))
18650TFif (defined $ENV{'srcdir'})
18750TFunless chdir $ENV{'srcdir'}
19750TFunless open my $fhnew, ">", $filenamenew
19850TFunless open my $fh, "<", $filename
20350TFunless close $fh
20450TFunless close $fhnew
20650TFunless rename $filenamenew, $filename