File Coverage

blib/lib/Text/Continuation/Parser.pm

Criterion	Covered	Total	%
statement	44	53	83.0
branch	26	38	68.4
condition	13	23	56.5
subroutine	7	7	100.0
pod	1	1	100.0
total	91	122	74.5

use utf8;
use 5.010;
package Text::Continuation::Parser;
our $VERSION = '0.4'; # TRIAL
use warnings;
use strict;
use Carp qw(croak);

# ABSTRACT: Parse files with continuation lines

use base qw(Exporter);

our @EXPORT_OK = qw(parse_line);

my $trim = qr/(?:^\s*|\s*$)/;

sub parse_line {
    my ($fh, $line) = @_;

    my $new = $fh->getline;

    if ($line && !defined $new) {
        croak
            "Line continuation detected and reaching end of file. This is invalid";
    }
    return unless defined $new;

    chomp($new);
    $new =~ s/\r//g;
    if ($new =~ /^\s*#/) {
        if (length($line//'')) {
            return parse_line($fh, $line);
        }
        return $new;
    }
    elsif ($new =~ /^\\$/) {
        return parse_line($fh, $line);
    }
    elsif ($new =~ /\s+\\\s*$/) {
        $new =~ s#\s+\\\s*$##;
        $new =~ s/$trim//g;
        if (length($line//'')) {
            if (length($new)) {
                return parse_line($fh, join(' ', $line, $new));
            }
            return parse_line($fh, $line);
        }
        return parse_line($fh, length($new) ? $new : undef);
    }
    elsif ($new =~ /\S+\\\s*$/) {
        $new =~ s#\\\s*$##;
        $new =~ s/$trim//g;
        if (length($line//'')) {
            if (length($new)) {
                return parse_line($fh, join('', $line, $new));
            }
            return parse_line($fh, $line);
        }
        return parse_line($fh, length($new) ? $new : undef);
    }
    elsif ($new =~ /^\s+/) {
        $new =~ s/$trim//g;
        if (!length($new) && length($line//'')) {
            croak
                "Line continuation detected and empty line. This is invalid";
        }
        if (length($line//'')) {
            return length($new) ? join(' ', $line, $new) : $line;
        }
        return $new;
    }
    else {
        $new =~ s/$trim//g;
        if (!length($new) && length($line//'')) {
            croak
                "Line continuation detected and empty line. This is invalid";
        }
        return length($line//'') ? join('', $line, $new) : $new;
    }
}

1;

__END__