File Coverage

blib/lib/Footprintless/App/Command/log/cat.pm
Criterion Covered Total %
statement 24 24 100.0
branch 3 4 75.0
condition n/a
subroutine 9 9 100.0
pod 4 4 100.0
total 40 41 97.5


line stmt bran cond sub pod time code
1 5     5   3031 use strict;
  5         10  
  5         121  
2 5     5   20 use warnings;
  5         9  
  5         199  
3              
4             package Footprintless::App::Command::log::cat;
5             $Footprintless::App::Command::log::cat::VERSION = '1.29';
6             # ABSTRACT: output a file
7             # PODNAME: Footprintless::App::Command::log::cat
8              
9 5     5   23 use parent qw(Footprintless::App::Action);
  5         7  
  5         21  
10              
11 5     5   280 use Footprintless::App -ignore;
  5         8  
  5         25  
12 5     5   838 use Log::Any;
  5         9  
  5         22  
13              
14             my $logger = Log::Any->get_logger();
15              
16             sub execute {
17 3     3 1 6 my ( $self, $opts, $args ) = @_;
18              
19             $self->{log}->cat(
20             runner_options => { out_handle => \*STDOUT },
21 3 100       30 ( $opts->{arg} ? ( args => $opts->{arg} ) : () )
22             );
23              
24 3         15 $logger->info('Done...');
25             }
26              
27             sub opt_spec {
28 3     3 1 13 return ( [ 'arg=s@', 'an argument passed to the command' ] );
29             }
30              
31             sub usage_desc {
32 3     3 1 6 return "fpl log LOG_COORD cat %o";
33             }
34              
35             sub validate_args {
36 3     3 1 4 my ( $self, $opts, $args ) = @_;
37              
38 3         6 eval { $self->{log} = $self->{footprintless}->log( $self->{coordinate} ); };
  3         10  
39 3 50       9 $self->usage_error("invalid coordinate [$self->{coordinate}]: $@") if ($@);
40             }
41              
42             1;
43              
44             __END__