File Coverage

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

Criterion	Covered	Total	%
statement	10	11	90.9
branch	1	2	50.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	3	0.0
total	17	24	70.8

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__