File Coverage

blib/lib/Minilla/CLI/Test.pm
Criterion Covered Total %
statement 21 38 55.2
branch 0 8 0.0
condition n/a
subroutine 7 8 87.5
pod 0 1 0.0
total 28 55 50.9


line stmt bran cond sub pod time code
1             package Minilla::CLI::Test;
2 1     1   7 use strict;
  1         4  
  1         31  
3 1     1   5 use warnings;
  1         2  
  1         27  
4 1     1   5 use utf8;
  1         2  
  1         6  
5 1     1   34 use File::pushd;
  1         2  
  1         44  
6              
7 1     1   6 use Minilla::WorkDir;
  1         2  
  1         32  
8 1     1   7 use Minilla::Project;
  1         2  
  1         37  
9 1     1   6 use Minilla::Util qw(check_git parse_options);
  1         2  
  1         223  
10              
11             sub run {
12 0     0 0   my ($self, @args) = @_;
13              
14 0           my $release = 0;
15 0           my $author = 1;
16 0           my $automated = 0;
17 0           my $all = 0;
18              
19 0           check_git;
20              
21 0           parse_options(
22             \@args,
23             'release!' => \$release,
24             'author!' => \$author,
25             'automated!' => \$automated,
26             'all!' => \$all,
27             );
28              
29 0 0         if ($all) {
30 0           $release = $author = $automated = 1;
31             }
32              
33 0           my $project = Minilla::Project->new();
34 0           $project->verify_prereqs( );
35              
36 0 0         $ENV{RELEASE_TESTING} =1 if $release;
37 0 0         $ENV{AUTHOR_TESTING} =1 if $author;
38 0 0         $ENV{AUTOMATED_TESTING} =1 if $automated;
39              
40 0           my $work_dir = $project->work_dir;
41 0           my $code = $work_dir->dist_test();
42 0           exit $code;
43             }
44              
45             1;
46             __END__