File Coverage

blib/lib/Data/RoundRobin.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch			n/a
condition	2	4	50.0
subroutine	7	7	100.0
pod	3	3	100.0
total	38	40	95.0

package Data::RoundRobin;
use 5.006001;
use strict;
use warnings;
our $VERSION = '0.03';

use overload
    'eq' => \&next,
    'ne' => \&next,
    "cmp" => \&next,
    "<=>" => \&next,
    '+' => \&numerify,
    '==' => \&numerify,
    '""' => \&next;

sub new {
    my ($class, @arr) = @_;
    my $self = {
        array => \@arr,
        current => 0,
        total => scalar(@arr),
    };
    return bless $self;
}

sub next {
    my $self = shift;
    my $r    = $self->{array}->[$self->{current}];
    $self->{current}++;
    $self->{current} %= $self->{total};
    return $r;
}

sub numerify {
    my $self   = shift;
    my $other  = shift || 0;
    my $value  = $self->next;
    $value =~ s/^(\d*).*$/$1/;
    $value ||= 0;
    return $value + $other;
}

1;

__END__