File Coverage

blib/lib/XAS/Lib/Mixins/Bufops.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	4	0.0
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	29	34.4

package XAS::Lib::Mixins::Bufops;

our $VERSION = '0.01';

use Params::Validate qw(SCALAR SCALARREF);
use XAS::Class
  debug   => 0,
  version => $VERSION,
  base    => 'XAS::Base',
  utils   => ':validation',
  mixins  => 'buf_slurp buf_get_line'
;

# ----------------------------------------------------------------------
# Public Methods
# ----------------------------------------------------------------------

sub buf_slurp {
    my $self = shift;
    my ($buffer, $pos) = validate_params(\@_, [
        { type => SCALARREF },
        { type => SCALAR },
    ]);

    my $output;

    if ($output = substr($$buffer, 0, $pos)) {

        substr($$buffer, 0, $pos) = '';

    }

    return $output;

}

sub buf_get_line {
    my $self = shift;
    my ($buffer, $eol) = validate_params(\@_, [
        { type => SCALARREF },
        { type => SCALAR | SCALARREF },
    ]);

    my $pos;
    my $output;

    if ($$buffer =~ m/$eol/g) {

        $pos = pos($$buffer);
        $output = $self->buf_slurp($buffer, $pos);

    }

    return $output;

}

# ----------------------------------------------------------------------
# Private Methods
# ----------------------------------------------------------------------

1;

__END__