9 my $schema = DBICTest->init_schema();
12 # while cds.* will be selected anyway (prefetch currently forces the result of _resolve_prefetch)
13 # only the requested me.name column will be fetched.
15 # reference sql with select => [...]
16 # SELECT me.name, cds.title, cds.cdid, cds.artist, cds.title, cds.year, cds.genreid, cds.single_track FROM ...
18 my $rs = $schema->resultset('Artist')->search(
19 { 'cds.title' => { '!=', 'Generic Manufactured Singles' } },
21 prefetch => [ qw/ cds / ],
22 order_by => [ { -desc => 'me.name' }, 'cds.title' ],
23 select => [qw/ me.name cds.title / ],
27 is ($rs->count, 2, 'Correct number of collapsed artists');
28 my $we_are_goth = $rs->first;
29 is ($we_are_goth->name, 'We Are Goth', 'Correct first artist');
30 is ($we_are_goth->cds->count, 1, 'Correct number of CDs for first artist');
31 is ($we_are_goth->cds->first->title, 'Come Be Depressed With Us', 'Correct cd for artist');
32 }, 'explicit prefetch on a keyless object works');
36 # test implicit prefetch as well
38 my $rs = $schema->resultset('CD')->search(
39 { title => 'Generic Manufactured Singles' },
42 select => [qw/ me.title artist.name / ],
47 is ($cd->title, 'Generic Manufactured Singles', 'CD title prefetched correctly');
48 isa_ok ($cd->artist, 'DBICTest::Artist');
49 is ($cd->artist->name, 'Random Boy Band', 'Artist object has correct name');
51 }, 'implicit keyless prefetch works');
56 $schema->resultset('Track')->search({}, { join => { cd => 'artist' }, '+columns' => 'artist.name' } )->next;
58 qr|\QCan't inflate manual prefetch into non-existent relationship 'artist' from 'Track', check the inflation specification (columns/as) ending in 'artist.name'|,
59 'Sensible error message on mis-specified "as"',