Mine
public text v1 · immutable my $schema = Runner::Model->connect(DBCONNECT . DBDESTINATION);
$schema->deploy({add_drop_table => 1, no_comments => 1});
my $test = $schema->resultset('Test')->new(
{
creation => '2001-01-01',
modification => '2001-01-01',
name => 'CODE Performance',
runas => 'dscoular',
pre => 'build_ios.pl',
cmd => 'run_ios.pl',
post => 'present_ios.pl',
rawdata => 'foo',
});
my $test1 = $schema->resultset('Test')->new(
{
creation => '2003-01-01',
modification => '2003-01-01',
name => 'CODE Functional',
runas => 'dscoular',
pre => 'build_ios.pl',
cmd => 'run_ios.pl',
post => 'present_ios.pl',
rawdata => 'bar',
});
my $testGroup = $schema->resultset('TestGroup')->new(
{
creation => '2001-01-01',
modification => '2001-01-01',
name => 'CODE Performance',
tests => [ $test ],
},
);
$testGroup->insert();
$test->insert();