use common::sense;
use Inline::Perl6;
BEGIN { Inline::Perl6::initialize; }
use DBIC::Demo;
my $schema = DBIC::Demo->connect('dbi:Pg:dbname=nine');
$schema->resultset('Cd')->delete;
$schema->resultset('Artist')->delete;
my $nin = $schema->resultset('Artist')->create({
name => 'Nine Inch Nails',
});
$nin->create_related('cds', {
title => 'The Downward Spiral',
});
my $cd = $schema->resultset('Cd')->search_rs->first;
say $cd->full_title;
# vim: ft=perl6
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
~
:q 23,1 All