File Coverage

blib/lib/Footprintless/App/Command/overlay/clean.pm
Criterion Covered Total %
statement 15 24 62.5
branch 0 2 0.0
condition n/a
subroutine 5 8 62.5
pod 3 3 100.0
total 23 37 62.1


line stmt bran cond sub pod time code
1 5     5   3192 use strict;
  5         11  
  5         116  
2 5     5   19 use warnings;
  5         64  
  5         185  
3              
4             package Footprintless::App::Command::overlay::clean;
5             $Footprintless::App::Command::overlay::clean::VERSION = '1.28';
6             # ABSTRACT: removes all files managed by the overlay
7             # PODNAME: Footprintless::App::Command::overlay::clean
8              
9 5     5   25 use parent qw(Footprintless::App::Action);
  5         7  
  5         20  
10              
11 5     5   269 use Footprintless::App -ignore;
  5         9  
  5         82  
12 5     5   810 use Log::Any;
  5         10  
  5         20  
13              
14             my $logger = Log::Any->get_logger();
15              
16             sub execute {
17 0     0 1   my ( $self, $opts, $args ) = @_;
18              
19 0           $logger->info('Performing clean...');
20 0           $self->{overlay}->clean();
21              
22 0           $logger->info('Done...');
23             }
24              
25             sub usage_desc {
26 0     0 1   return "fpl overlay OVERLAY_COORD clean";
27             }
28              
29             sub validate_args {
30 0     0 1   my ( $self, $opts, $args ) = @_;
31              
32 0           eval { $self->{overlay} = $self->{footprintless}->overlay( $self->{coordinate} ); };
  0            
33              
34 0 0         $self->usage_error("invalid coordinate [$self->{coordinate}]: $@") if ($@);
35             }
36              
37             1;
38              
39             __END__