File Coverage

blib/lib/App/RemoteCommand/LineBuffer.pm

Criterion	Covered	Total	%
statement	8	42	19.0
branch	0	8	0.0
condition	0	3	0.0
subroutine	3	7	42.8
pod	0	4	0.0
total	11	64	17.1

package App::RemoteCommand::LineBuffer;
use v5.24;
use warnings;
use experimental qw(lexical_subs signatures);

sub new ($class) {
    bless { buffer => "" }, $class;
}

sub raw ($self) {
    $self->{buffer};
}

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

sub get ($self, $drain = undef) {
    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;