File Coverage

blib/lib/Video/Delay/Func.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	6	6	100.0
condition	3	3	100.0
subroutine	8	8	100.0
pod	2	2	100.0
total	57	57	100.0

package Video::Delay::Func;

use strict;
use warnings;

use Class::Utils qw(set_params);
use English qw(-no_match_vars);
use Error::Pure qw(err);

our $VERSION = 0.07;

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

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

	# Math function.
	$self->{'func'} = sub {
		my $t = shift;
		return 1000 * sin($t);
	};

	# Counter increment.
	$self->{'incr'} = 0.1;

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

	# Counter.
	$self->{'counter'} = 0;

	# Check 'func' parameters.
	if (ref $self->{'func'} ne '' && ref $self->{'func'} ne 'CODE') {
		err "Parameter 'func' must be scalar or code.";
	}

	# Object.
	return $self;
}

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

	# Counter.
	$self->{'counter'} += $self->{'incr'};

	# Function string.
	my $ret;
	if (ref $self->{'func'} eq '') {
		my $input = $self->{'func'};
		my $c = $self->{'counter'};
		$input =~ s/t/$c/g;

		# Eval.
		$ret = eval $input;
		if ($EVAL_ERROR) {
			err 'Error in function.',
				'Error', $EVAL_ERROR;
		}

	# Callback.
	} else {
		$ret = $self->{'func'}->($self->{'counter'});
	}

	return $ret;
}

1;

__END__