File Coverage

blib/lib/ODS/Storage/Base.pm

Criterion	Covered	Total	%
statement	29	31	93.5
branch	7	10	70.0
condition	5	10	50.0
subroutine	5	5	100.0
pod	0	3	0.0
total	46	59	77.9

package ODS::Storage::Base;

use YAOO;

use ODS::Iterator;

auto_build;

has table => isa(object);

sub connect {
	my ($self, @params) = @_;
	$self = $self->new(@params);
	return $self;
}

sub into_rows {
	my ($self, $data, $inflated) = @_;

	$data = $self->parse_data_format($data)
		if (not ref $data and $self->can('parse_data_format'));

	if (ref $data eq 'ARRAY') {
		my @rows;
		for my $row ( @{ $data } ) {
			push @rows, $self->table->row_class->new(
				table => $self->table,
				data => $row,
				inflated => $inflated || 0
			);
		}
		$self->table->rows(\@rows);

		return ODS::Iterator->new(table => $self->table);
	} elsif (ref $data eq 'HASH') {
		return $self->table->row_class->new(
			table => $self->table,
			data => $data,
			inflated => $inflated || 0
		);
	}

	return undef;
}

sub into_storage {
	my ($self, $all) = @_;

	my $data;
	if ($all) {
		for my $row (@{ $self->table->rows }) {
			my $val = $row->store_row();
			push @{$data}, $val;
		}
	} else {
		$data = $self->table->rows->[-1]->store_row();
	}

	$data = $self->stringify_data_format($data)
		if (ref $data and $self->can('stringify_data_format'));

	return $data;
}

1;