File Coverage

blib/lib/Bat/Interpreter/Delegate/LineLogger/SilentSaveLines.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Bat::Interpreter::Delegate::LineLogger::SilentSaveLines;
2              
3 1     1   547 use utf8;
  1         3  
  1         7  
4              
5 1     1   35 use Moo;
  1         2  
  1         6  
6 1     1   347 use Types::Standard qw(ArrayRef);
  1         2  
  1         13  
7 1     1   618 use namespace::autoclean;
  1         2  
  1         10  
8              
9             with 'Bat::Interpreter::Role::LineLogger';
10              
11             our $VERSION = '0.024'; # VERSION
12              
13             has 'lines' => ( is => 'ro',
14             isa => ArrayRef,
15             default => sub { [] },
16             );
17              
18             sub log_line {
19 22     22 1 174 my $self = shift();
20 22         35 push @{ $self->lines }, @_;
  22         76  
21 22         58 return 0;
22             }
23              
24             1;
25              
26             __END__