File Coverage

blib/lib/Apache/Voodoo/Validate/unsigned_int.pm

Criterion	Covered	Total	%
statement	21	24	87.5
branch	9	12	75.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	35	43	81.4

package Apache::Voodoo::Validate::unsigned_int;

$VERSION = "3.0200";

use strict;
use warnings;

use base("Apache::Voodoo::Validate::Plugin");

sub config {
	my ($self,$c) = @_;

	my @e;
	if (defined($c->{bytes})) {
		if ($c->{bytes} =~ /^\d+$/) {
			$self->{max} = 2 ** ($c->{bytes} * 8) - 1;
		}
		else {
			push(@e,"'bytes' must be a positive integer");
		}
	}
	elsif (defined($c->{max})) {
		if ($c->{max} =~ /^\d+$/) {
			$self->{max} = $c->{max};
		}
		else {
			push(@e,"'max' must be a positive integer");
		}
	}
	else {
		push(@e,"either 'max' or 'bytes' is a required parameter");
	}

	return @e;
}

sub valid {
	my ($self,$v) = @_;

	return undef,'BAD' unless ($v =~ /^\d*$/ );
	return undef,'MAX' unless ($v <= $self->{'max'});

	return $v;
}

1;

################################################################################
# Copyright (c) 2005-2010 Steven Edwards ([e-mail]).
# All rights reserved.
#
# You may use and distribute Apache::Voodoo under the terms described in the
# LICENSE file include in this package. The summary is it's a legalese version
# of the Artistic License :)
#
################################################################################