File Coverage

blib/lib/Footprintless/App/Command/log/tail.pm
Criterion Covered Total %
statement 15 24 62.5
branch 0 4 0.0
condition n/a
subroutine 5 9 55.5
pod 4 4 100.0
total 24 41 58.5


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