File Coverage

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

Criterion	Covered	Total	%
statement	29	29	100.0
branch	8	8	100.0
condition	17	18	94.4
subroutine	7	7	100.0
pod	0	5	0.0
total	61	67	91.0

package ODS::Table::Column::Base;

use YAOO;

use ODS::Utils qw/clone error/;

auto_build;

has name => rw, isa(string);

has type => rw, isa(string);

has value => rw, isa(any);

has mandatory => rw, isa(boolean);

has no_render => rw, isa(boolean);

has sortable => rw, isa(any);

has filterable => rw, isa(any);

has field => rw, isa(hash);

has inflated => rw, isa(boolean);

sub build_column {
	my ($self, $data, $already_inflated, $serialize) = @_;

	$self = clone($self);

	$self->serialize_class($serialize) if $serialize && $self->can('serialize_class');

	$self->inflated($already_inflated);

	$self->value($data);

	$self->inflate($data);

	return $self;
}

sub store_column {
	my ($self) = @_;

	return $self->validate()->deflate();
}

sub validate {
	my ($self) = @_;

	# has_validation_class
	return $self unless defined $self->value and $self->can('validation');

	$self->value(
		$self->validation($self->value)
	);

	return $self;
}

sub inflate {
	my ($self) = @_;

	# has_validation_class
	return $self unless defined $self->value and not $self->inflated and $self->can('inflation');

	$self->value(
		$self->inflation($self->value)
	);

	$self->inflated(1);

	return $self;
}

sub deflate {
	my ($self) = @_;

	# has_validation_class
	return $self unless defined $self->value and $self->inflated and $self->can('deflation');

	$self->value(
		$self->deflation($self->value)
	);

	$self->inflated(0);

	return $self;
}

1;

__END__