File Coverage

blib/lib/ODS/Table/Column/Integer.pm

Criterion	Covered	Total	%
statement	7	12	58.3
branch	0	2	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	0	3	0.0
total	10	25	40.0

package ODS::Table::Column::Integer;

use YAOO;

extends 'ODS::Table::Column::Base';

use ODS::Utils qw/error/;

has auto_increment => rw, isa(boolean);

sub validation {
        if (ref($_[1]) || ${$_[1]} !~ m/\d+/) {
                croak sprintf "The value passed to the %s column does not match the integer constraint.",
                        $_[0]->name;
        }
	return $_[1];
}

sub inflation { return 0 + $_[1]; }

sub deflation { return 0 + $_[1]; }

#sub coercion { return $_[1]; }

1;

__END__