NAME Class::DBI::Sweet::More - More sweet Class::DBI::Sweet SYNOPSIS package MyApp::DBI; use base 'Class::DBI::Sweet::More'; # change from Class::DBI::Sweet ... # LEFT OUTER JOIN MyApp::CD->has_many(tags => 'MyApp::Tag', {join_type => 'LEFT'}); MyApp::CD->might_have(liner_notes => 'MyApp::LinerNotes' => qw/notes/)->{args}{join_type} = 'LEFT'; # This is selected not to have tags. my @cds = MyApp::CD->search({'tags' => undef}); # This succeeds even without liner_notes. my ($cd) = MyApp::CD->search( { ... }, { prefetch => [ qw/liner_notes/ ] } ); # This is selected to have tags of Blue and Cheesy. my @cds = MyApp::CD->search({'tags.tag' => {-and => [qw/ Blue Cheesy /]} }); DESCRIPTION Class::DBI::Sweet::More provides OUTER JOIN (and has_many table's search option '-and') to "Class::DBI::Sweet". AUTHOR ASAKURA Takuji, "" COPYRIGHT & LICENSE Copyright 2006 ASAKURA Takuji, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.