File Coverage

blib/lib/Tie/BoundedInteger.pm

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	2	0.0
condition	0	3	0.0
subroutine	2	5	40.0
pod			n/a
total	8	29	27.5

package Tie::BoundedInteger;
use strict;

use Carp qw(croak);

our $VERSION = '1.005';

sub TIESCALAR {
	my $class = shift;
	my $value = shift;
	my $max   = shift;

	my $self = bless [ 0, $max ], $class;

	$self->STORE( $value );

	return $self;
	}

sub FETCH { $_[0]->[0] }

sub STORE {
	my $self  = shift;
	my $value = shift;

	my $magnitude = abs $value;

	croak( "The [$value] exceeds the allowed limit [$self->[1]]" )
		if( int($value) != $value || $magnitude > $self->[1] );

	$self->[0] = $value;

	$value;
	}

1;

__END__