Branch Coverage

blib/lib/Module/Starter/App.pm
Criterion Covered Total %
branch 9 30 30.0


line true false branch
28 0 0 if (not $configdir and $ENV{'HOME'})
40 0 0 unless -e $filename
42 0 0 unless open my $config_file, "<", $filename
48 0 0 if $line =~ /\A\s*\Z/ms
49 0 0 if ($line =~ /\A(\w+):\s*(.+)\Z/ms)
60 88 22 unless exists $config{$key}
62 22 88 if ($key eq 'author') { }
63 0 22 if ref $config{$key}
85 15 7 if length $config{$key}
89 88 0 ref $config{$key} ? :
88 0 if $config{$key}
101 0 0 unless @ARGV
131 0 0 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'}, "ignores=s\@", \$config{'ignores_type'}, "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'}, "github=s", \$config{'github'}, "license=s", \$config{'license'}, "genlicense", \$config{'genlicense'}, "minperl=s", \$config{'minperl'}, "fatalize", \$config{'fatalize'}, "force", \$config{'force'}, "verbose", \$config{'verbose'}, "version", sub { require Module::Starter; print "module-starter v$Module::Starter::VERSION\n"; exit 1; } , "help", sub { pod2usage(1); } )
133 0 0 if (@ARGV)
142 0 0 unless $config{'builder'}