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   500 use utf8;
  1         4  
  1         7  
4              
5 1     1   33 use Moo;
  1         2  
  1         6  
6 1     1   336 use Types::Standard qw(ArrayRef);
  1         3  
  1         8  
7 1     1   566 use namespace::autoclean;
  1         2  
  1         22  
8              
9             with 'Bat::Interpreter::Role::LineLogger';
10              
11             our $VERSION = '0.022'; # VERSION
12              
13             has 'lines' => ( is => 'ro',
14             isa => ArrayRef,
15             default => sub { [] },
16             );
17              
18             sub log_line {
19 22     22 1 187 my $self = shift();
20 22         35 push @{ $self->lines }, @_;
  22         83  
21 22         57 return 0;
22             }
23              
24             1;
25              
26             __END__