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 'self.y' => { -between => [ qw(foreign.y1 foreign.y2) ] }
29 my $s = MySchema->connect('dbi:SQLite:dbname=:memory:');
30 ::Dwarn([ $s->source('Foo')->columns ]);
32 my $rs = $s->resultset('Foo')->search({ z => 1 });
34 ::Dwarn(${$rs->as_query}->[0]);
36 $s->storage->ensure_connected;
40 ->with::roles('DBIx::Class::SQLMaker::Role::SQLA2Passthrough')
41 ->plugin('+ExtraClauses')
42 ->plugin('+BangOverrides');
44 warn ref($s->storage->sql_maker);
46 my $rs2 = $s->resultset('Foo')->search({
47 -op => [ '=', { -ident => 'outer.y' }, { -ident => 'me.x' } ]
49 'select' => [ 'me.x', { -ident => 'me.z' } ],
50 '!with' => [ outer => $rs->get_column('x')->as_query ],
53 ::Dwarn(${$rs2->as_query}->[0]);
55 my $rs3 = $s->resultset('Foo')
56 ->search({}, { prefetch => 'bars' });
58 ::Dwarn(${$rs3->as_query}->[0]);