File Coverage

blib/lib/App/RemoteCommand/LineBuffer.pm

Criterion	Covered	Total	%
statement	6	29	20.6
branch	0	8	0.0
condition	0	3	0.0
subroutine	2	6	33.3
pod	0	4	0.0
total	8	50	16.0

package App::RemoteCommand::LineBuffer;
use strict;
use warnings;

sub new {
    my $class = shift;
    bless { buffer => "" }, $class;
}

sub raw {
    shift->{buffer};
}

sub add {
    my ($self, $buffer) = @_;
    $self->{buffer} .= $buffer;
    $self;
}

sub get {
    my ($self, $drain) = @_;
    if ($drain) {
        if (length $self->{buffer}) {
            my @line = $self->get;
            if (length $self->{buffer} and $self->{buffer} ne "\x0d") {
                $self->{buffer} =~ s/[\x0d\x0a]+\z//;
                push @line, $self->{buffer};
            }
            $self->{buffer} = "";
            return @line;
        } else {
            return;
        }
    }
    my @line;
    while ($self->{buffer} =~ s/\A(.*?(?:\x0d\x0a|\x0d|\x0a))//sm) {
        my $line = $1;
        next if $line eq "\x0d";
        $line =~ s/[\x0d\x0a]+\z//;
        push @line, $line;
    }
    return @line;
}

1;