Branch Coverage

blib/lib/Dist/Man/App.pm
Criterion Covered Total %
branch 11 28 39.2


line true false branch
21 1 0 unless -e $filename
23 0 0 unless open my $config_file, '<', $filename
29 0 0 if /\A\s*\Z/ms
30 0 0 if (/\A(\w+):\s*(.+)\Z/ms)
47 1 0 if (not $configdir and $ENV{'HOME'})
56 0 1 if $config{'plugins'}
57 0 1 if $config{'builder'}
60 3 0 unless exists $config{$key}
63 0 1 unless @ARGV
89 0 1 unless &GetOptions('class=s', \$config{'class'}, 'plugin=s', $config{'plugins'}, 'dir=s', \$config{'dir'}, 'distro=s', \$config{'distro'}, 'module=s', $config{'modules'}, 'builder=s', $config{'builder'}, 'eumm', sub { push @{$config{'builder'};}, 'ExtUtils::MakeMaker'; } , 'mb', sub { push @{$config{'builder'};}, 'Module::Build'; } , 'mi', sub { push @{$config{'builder'};}, 'Module::Install'; } , 'author=s', \$config{'author'}, 'email=s', \$config{'email'}, 'license=s', \$config{'license'}, 'force', \$config{'force'}, 'verbose', \$config{'verbose'}, 'version', sub { require Dist::Man; print "pl-dist-man v$Dist::Man::VERSION\n"; exit 1; } , 'help', sub { pod2usage(1); } )
91 0 1 if (@ARGV)
101 0 1 unless @{$config{'builder'};}
104 0 1 if $@
107 0 1 unless ($operation eq 'setup' or $operation eq 'create')