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

package Config::INI::Reader::Multiline;
$Config::INI::Reader::Multiline::VERSION = '1.001';
use strict;
use warnings;

use Config::INI::Reader 0.024;
our @ISA = qw( Config::INI::Reader );

sub parse_value_assignment {
    my ( $self, $line ) = @_;
    return if $line =~ /\s*\\\s*\z/;
    $line = delete( $self->{__buffer} ) . $line
        if exists $self->{__buffer} && $line =~ s/^\s*//;
    return $self->SUPER::parse_value_assignment($line);
}

sub handle_unparsed_line {
    my ( $self, $line, $handle ) = @_; # order changed in CIR 0.024
    return $self->{__buffer} .= "$line "
        if $line =~ s/\s*\\\s*\z// && $line =~ s/\A\s*//;
    return $self->SUPER::handle_unparsed_line( $line, $handle );
}

1;

__END__