File Coverage

blib/lib/ODS/Table/Generate.pm

Criterion	Covered	Total	%
statement	83	87	95.4
branch	30	40	75.0
condition	4	4	100.0
subroutine	12	12	100.0
pod	0	8	0.0
total	129	151	85.4

package ODS::Table::Generate;
use strict;
use warnings;
use YAOO;

use ODS::Utils qw/load valid_email valid_phone file_dir/;

auto_build;

has serializer => isa(object), required, coerce(sub {
	my ($self, $value) = @_;
	my $module = 'ODS::Serialize::' . $value;
	load $module;
	$module->new;
});

has table_class => isa(string);

has table_base_class => isa(string);

has in_directory => isa(string);

has out_directory => isa(string), required;

has file => isa(string);

has table_from_file_name => isa(boolean);

has build_objects => isa(boolean);

has keyfield => isa(string);

has column_defaults => isa(ordered_hash(
	type => undef,
	mandatory => \0,
	no_render => \0,
	sortable => \0,
	filterable => \0,
	field => undef,
));

has array_defaults => isa(ordered_hash(
	min_length => \0,
	max_length => undef
));

has boolean_defaults => isa(ordered_hash());

has email_defaults => isa(ordered_hash());

has epoch_defaults => isa(ordered_hash());

has float_defaults => isa(ordered_hash(
	precision => undef,
	number => \1
));

has hash_defaults => isa(ordered_hash(
	required_keys => undef
));

has integer_defaults => isa(ordered_hash(
	auto_increment => \0
));

has object_defaults => isa(ordered_hash(
	object_class => undef
));

has phone_defaults => isa(ordered_hash);

has string_defaults => isa(ordered_hash);

has build_resultset_class => isa(boolean(1));

has build_row_class => isa(boolean(1));

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

# TODO read in existing table spec, parse the file and merge so that it doesn't just overwrite custom column
# definitions.

	my $files = $self->read_files();

	for my $file ( keys %{ $files } ) {
		my $table_class = $self->generate_table($file, $files->{$file});
		$self->generate_resultset($table_class) if $self->build_resultset_class;
		$self->generate_row($table_class) if $self->build_row_class;
	}
}

sub generate_resultset {
	my ($self, $class) = @_;

	$class =~ s/Table/ResultSet/;

	my $resultset = qq|package ${class};

use YAOO;

extends 'ODS::Table::ResultSet';

# insert custom sub routines/methods for the resultset here

1;

__END__|;