File Coverage

blib/lib/Video/Delay/Array.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	2	2	100.0
total	40	40	100.0

package Video::Delay::Array;

use strict;
use warnings;

use Class::Utils qw(set_params);

our $VERSION = 0.07;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Array.
	$self->{'array'} = [1000, 2000, 3000];

	# Loop.
	$self->{'loop'} = 1;

	# Process params.
	set_params($self, @params);

	# Index.
	$self->{'index'} = 0;

	# Object.
	return $self;
}

# Get delay.
sub delay {
	my $self = shift;

	# Return value.
	my $ret;
	if ($self->{'index'} <= @{$self->{'array'}} - 1) {
		$ret = $self->{'array'}->[$self->{'index'}];
	}

	# Increment.
	$self->{'index'}++;
	if ($self->{'loop'} && $self->{'index'} > @{$self->{'array'}} - 1) {
		$self->{'index'} = 0;
	}

	# Value.
	return $ret;
}

1;

__END__