File Coverage

blib/lib/Footprintless/App/Command/log/head.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   2807 use strict;
  5         10  
  5         119  
2 5     5   21 use warnings;
  5         10  
  5         215  
3              
4             package Footprintless::App::Command::log::head;
5             $Footprintless::App::Command::log::head::VERSION = '1.29';
6             # ABSTRACT: output the first part of a file
7             # PODNAME: Footprintless::App::Command::log::head
8              
9 5     5   23 use parent qw(Footprintless::App::Action);
  5         8  
  5         29  
10              
11 5     5   270 use Footprintless::App -ignore;
  5         9  
  5         24  
12 5     5   984 use Log::Any;
  5         9  
  5         21  
13              
14             my $logger = Log::Any->get_logger();
15              
16             sub execute {
17 0     0 1   my ( $self, $opts, $args ) = @_;
18              
19             $self->{log}->head(
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 head %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__