8 use base qw(DBIx::Class::Schema);
9 use DBIx::Class::ResultSource::Table;
10 __PACKAGE__->register_source(
11 Foo => DBIx::Class::ResultSource::Table->new({ name => 'foo' })
12 ->$_tap(add_columns => qw(x y z))
14 __PACKAGE__->register_source(
15 Bar => DBIx::Class::ResultSource::Table->new({ name => 'bar' })
16 ->$_tap(add_columns => qw(x y1 y2 z))
21 use DBIx::Class::SQLMaker::Role::SQLA2Passthrough qw(on);
22 MySchema->source('Foo')->add_relationship(bars => 'Bar' => on {
23 +{ 'foreign.x' => 'self.x',
24 'foreign.y1' => { '<=', 'self.y' },
25 'foreign.y2' => { '>=', 'self.y' },
30 my $s = MySchema->connect('dbi:SQLite:dbname=:memory:');
31 ::Dwarn([ $s->source('Foo')->columns ]);
33 my $rs = $s->resultset('Foo')->search({ z => 1 });
35 ::Dwarn(${$rs->as_query}->[0]);
37 $s->storage->ensure_connected;
41 ->with::roles('DBIx::Class::SQLMaker::Role::SQLA2Passthrough')
42 ->plugin('+ExtraClauses')
43 ->plugin('+BangOverrides');
45 warn ref($s->storage->sql_maker);
47 my $rs2 = $s->resultset('Foo')->search({
48 -op => [ '=', { -ident => 'outer.x' }, { -ident => 'me.y' } ]
50 'select' => [ 'me.x', { -ident => 'me.z' } ],
51 '!with' => [ outer => $rs->get_column('x')->as_query ],
54 ::Dwarn(${$rs2->as_query}->[0]);
56 my $rs3 = $s->resultset('Foo')
57 ->search({}, { prefetch => 'bars' });
59 ::Dwarn(${$rs3->as_query}->[0]);
61 $s->source('Foo')->result_class('DBIx::Class::Core');
62 $s->source('Foo')->set_primary_key('x');
64 my $rs4 = $s->resultset('Foo')->new_result({ x => 1, y => 2 })
65 ->search_related('bars');
67 ::Dwarn(${$rs4->as_query}->[0]);