File Coverage

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

Criterion	Covered	Total	%
statement	6	19	31.5
branch	0	6	0.0
condition	0	6	0.0
subroutine	2	5	40.0
pod	0	3	0.0
total	8	39	20.5

package ODS::Table::Column::Float;

use YAOO;

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

use ODS::Utils qw/error/;

has precision => isa(integer);

has number => isa(boolean);

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

sub inflation {
	my ($self, $value) = @_;
	if ($self->precision) {
		my $precision = '%.' . $self->precision . 'f';
		$value = sprintf($precision, $value);
	}
	return $value;
}

sub deflation {
	my ($self, $value) = @_;
	if ($_[0]->number && $_[0]->precision) {
		$value = 0 + $value;
	}
	return $value;
}

1;

__END__