File Coverage

blib/lib/ShipIt/Step/DistClean.pm
Criterion Covered Total %
statement 12 18 66.6
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 26 65.3


line stmt bran cond sub pod time code
1             package ShipIt::Step::DistClean;
2              
3 1     1   7 use strict;
  1         1  
  1         41  
4 1     1   6 use warnings;
  1         2  
  1         33  
5 1     1   977 use Dist::Joseki;
  1         2134  
  1         11  
6              
7              
8             our $VERSION = '0.01';
9              
10              
11 1     1   45 use base 'ShipIt::Step';
  1         2  
  1         763  
12              
13              
14             sub run {
15 0     0 1   my ($self, $state) = @_;
16              
17 0 0         if ($state->dry_run) {
18 0           warn "*** DRY RUN, not cleaning distribution\n";
19 0           return;
20             }
21              
22 0           my $dist = Dist::Joseki->get_dist_type;
23 0           $dist->ACTION_distclean;
24             }
25              
26              
27             1;
28              
29              
30             __END__