File Coverage

blib/lib/Number/Iterator.pm

Criterion	Covered	Total	%
statement	27	33	81.8
branch	5	10	50.0
condition			n/a
subroutine	10	12	83.3
pod	0	5	0.0
total	42	60	70.0

package Number::Iterator;

use 5.006;
use strict;
use warnings;

our $VERSION = '1.01';

use overload (
	'""' => sub {
		$_[0]->{value};
	},
	'++' => sub {
		$_[0]->iterate();
	},
	'--' => sub {
		$_[0]->deiterate();
	}
);

sub new {
	my ($self, %args) = @_;
	$args{value} = 0 unless $args{value};
	return bless \%args, $self;
}

sub iterate {
	my ($self) = @_;
	if (defined $self->{iterate}) {
		$self->{iterate}($self);
	} else {
		$self->{value} += $self->{interval};
	}
	return $self;
}

sub deiterate {
	my ($self) = @_;
	if (defined $self->{deiterate}) {
		$self->{deiterate}($self);
	} else {
		$self->{value} -= $self->{interval};
	}
	return $self;
}

sub value {
	my ($self, $val) = @_;
	$self->{value} = $val if (defined $val);
	return $self->{value};
}

sub interval {
	my ($self, $val) = @_;
	$self->{interval} = $val if (defined $val);
	return $self->{interval};
}

__END__;