8 use Data::Query::ExprDeclare;
10 use DBIC::SqlMakerTest;
12 my $schema = DBICTest->init_schema();
14 $schema->source($_)->resultset_class('DBIx::Class::ResultSet::WithDQMethods')
17 my $cds = $schema->resultset('CD')
18 ->where(expr { $_->artist->name eq 'Caterwauler McCrae' });
20 is($cds->count, 3, 'CDs via join injection');
22 my $tags = $schema->resultset('Tag')
23 ->where(expr { $_->cd->artist->name eq 'Caterwauler McCrae' });
25 is($tags->count, 5, 'Tags via two step join injection');