File Coverage

blib/lib/Config/INI/Reader/Multiline.pm
Criterion Covered Total %
statement 16 16 100.0
branch 6 6 100.0
condition 4 6 66.6
subroutine 5 5 100.0
pod 2 2 100.0
total 33 35 94.2


line stmt bran cond sub pod time code
1             package Config::INI::Reader::Multiline;
2             $Config::INI::Reader::Multiline::VERSION = '1.000';
3 3     3   28618 use strict;
  3         4  
  3         103  
4 3     3   11 use warnings;
  3         6  
  3         80  
5              
6 3     3   1171 use Config::INI::Reader 0.024;
  3         97994  
  3         452  
7             our @ISA = qw( Config::INI::Reader );
8              
9             sub parse_value_assignment {
10 17     17 1 5139 my ( $self, $line ) = @_;
11 17 100       87 return if $line =~ /\s*\\\s*\z/;
12 9 100 66     66 $line = delete( $self->{__buffer} ) . $line
13             if exists $self->{__buffer} && $line =~ s/^\s*//;
14 9         36 return $self->SUPER::parse_value_assignment($line);
15             }
16              
17             sub handle_unparsed_line {
18 10     10 1 40 my ( $self, $line, $handle ) = @_; # order changed in CIR 0.024
19 10 100 66     290 return $self->{__buffer} .= "$line "
20             if $line =~ s/\s*\\\s*\z// && $line =~ s/\A\s*//;
21 2         8 return $self->SUPER::handle_unparsed_line( $line, $handle );
22             }
23              
24             1;
25              
26             __END__