File Coverage

blib/lib/Data/RingBuffer.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	9	12	75.0
condition			n/a
subroutine	7	8	87.5
pod	4	4	100.0
total	44	49	89.8

#!/usr/bin/perl
#made by: KorG
# vim: sw=4 ts=4 et cc=79 :

package Data::RingBuffer;

use 5.008;
use strict;
use warnings FATAL => 'all';
use Carp;
# use Exporter 'import';

our $VERSION = '0.01';
$VERSION =~ tr/_//d;

# Add an element to the buffer
sub push {
    shift @{$_[0]->{buf}} if $_[0]->{head} == $_[0]->{size};

    $_[0]->{tail}-- if $_[0]->{tail} > 0;
    push @{$_[0]->{buf}}, $_[1];

    $_[0]->{head}++ if $_[0]->{head} < $_[0]->{size};

    return $_[1];
}

# Get all elements in the buffer
sub getall {
    return $_[0]->{buf};
}

# Get next element from the buffer
sub get {
    my $rb = $_[0];
    return if $_[0]->{tail} >= $_[0]->{head};
    return $_[0]->{buf}->[$_[0]->{tail}++];
}

# OO ctor
# args: $size
sub new {
    # Parse arguments
    croak "Buffer size not defined" unless defined $_[1];
    croak "Buffer size must be positive" unless $_[1] > 0;

    bless {
        buf => [],
        size => $_[1],
        head => 0,
        tail => 0,
    }, $_[0];
}

1; # End of Data::RingBuffer

__END__