File Coverage

blib/lib/Config/INI/Reader/Multiline.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	8	8	100.0
condition	4	6	66.6
subroutine	7	7	100.0
pod	4	4	100.0
total	46	48	95.8

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

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

# preprend the buffer if any
sub preprocess_line {
    my ( $self, $line ) = @_;
    $$line = delete( $self->{__buffer} ) . $$line
      if exists $self->{__buffer} && $$line =~ s/^\s*//;
    return $self->SUPER::preprocess_line($line);
}

sub parse_value_assignment {
    my ( $self, $line ) = @_;
    return if $line =~ /\s*\\\s*\z/;   # handle_unparsed_line does continuations
    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 "  # buffer continuations
      if $line =~ s/\s*\\\s*\z// && $line =~ s/\A\s*//;
    return $self->SUPER::handle_unparsed_line( $line, $handle );
}

sub finalize {
    my ($self) = @_;

    # if there's stuff in the buffer,
    # we had a continuation on the last line
    if ( exists $self->{__buffer} ) {
        my $line = delete $self->{__buffer};
        Carp::croak "Continuation on the last line: '$line\\'";
    }

    return $self->SUPER::finalize;
}

1;

__END__