File Coverage

blib/lib/Test/DBIx/Class/FixtureCommand/PopulateMore.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Test::DBIx::Class::FixtureCommand::PopulateMore; {

	use Moose;
	use Test::More ();
	use DBIx::Class::Schema::PopulateMore::Command;
	with 'Test::DBIx::Class::Role::FixtureCommand';

	sub install_fixtures {
		my ($self, $arg, @rest) = @_;
		my $builder = $self
			->schema_manager
			->builder;

		$builder->croak("Argument is required.")
		  unless $arg;

		my @args;
		if(ref $arg && ref $arg eq 'ARRAY') {
			@args = @$arg;
		}
		elsif(ref $arg && ref $arg eq 'HASH') {
			@args = %$arg;
		}
		else {
			@args = ($arg, @rest);
		}

		my @definitions;
		while(@args) {
			my $next = shift(@args);
			if( (ref $next) && (ref $next eq 'HASH') ) {
				push @definitions, $next;
			} else {
				my $value = shift(@args);
				push @definitions, {$next => $value};
			}
		}

		my ($command, %return);

		eval {
			$command = DBIx::Class::Schema::PopulateMore::Command->new(
				definitions=>[@definitions],
				schema=>$self->schema_manager->schema,
				exception_cb=>sub {
					$builder->croak(@_);
				},
			);
		}; if ($@) {
			Test::More::fail("Can't create command class: $@");
		} else {
			eval {
				%return = $command->execute;
			}; if ($@) {
				Test::More::fail("Can't install fixtures: $@");
			}
		}

		return %return;
	}
} 1;

__END__