File Coverage

blib/lib/Test2/Harness/Util/File/Value.pm
Criterion Covered Total %
statement 22 22 100.0
branch 2 4 50.0
condition n/a
subroutine 7 7 100.0
pod 0 3 0.0
total 31 36 86.1


line stmt bran cond sub pod time code
1             package Test2::Harness::Util::File::Value;
2 1     1   153344 use strict;
  1         2  
  1         42  
3 1     1   4 use warnings;
  1         2  
  1         35  
4              
5             our $VERSION = '0.001007';
6              
7 1     1   215 use parent 'Test2::Harness::Util::File';
  1         234  
  1         4  
8 1     1   38 use Test2::Harness::Util::HashBase;
  1         2  
  1         4  
9              
10             sub init {
11 1     1 0 2 my $self = shift;
12 1         5 $self->{+DONE} = 1;
13             }
14              
15             sub read {
16 1     1 0 3 my $self = shift;
17 1         7 my $out = $self->SUPER::read(@_);
18 1 50       5 chomp($out) if defined $out;
19 1         2 return $out;
20             }
21              
22             sub read_line {
23 1     1 0 420 my $self = shift;
24 1         6 my $out = $self->SUPER::read_line(@_);
25 1 50       3 chomp($out) if defined $out;
26 1         3 return $out;
27             }
28              
29             1;
30              
31             __END__