File Coverage

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

Criterion	Covered	Total	%
statement	25	28	89.2
branch	6	10	60.0
condition	2	5	40.0
subroutine	6	6	100.0
pod	0	3	0.0
total	39	52	75.0

package ODS::Table::Column::Object;

use YAOO;

use Scalar::Util;

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

use ODS::Utils qw/clone error deep_unblessed/;

has reference => isa(boolean), default => 0;

has blessed => isa(boolean), default => 0;

has object_class => isa(string);

has serialize_class => isa(object);

sub validation {
	my ($self, $value) = @_;
        if (ref($value || "SCALAR") =~ m/ARRAY|HASH|SCALAR/) {
        	$value = $self->object_class->instantiate($self, 0, $value);
		$self->blessed(1);
	}
	return $value;
}

sub inflation {
	my ($self, $value) = @_;

        if (! ref $value) {
        	$value = $self->serialize_class->parse($value);
		$self->reference(1);
	}

	return ref($value) =~ m/HASH|ARRAY|SCALAR/  ?  do {
		$self->blessed(1);
		$value = $self->object_class->instantiate($self, 0, $value);
		$value;
	} : $value;
}

sub deflation {
	my ($self, $value) = @_;
	if ($self->blessed) {
		$value = deep_unblessed $value;
	}
	if ($self->reference && ref $value) {
		$value = $self->serialize_class->stringify($value);
	}
	return $value;
}

1;

__END__