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, "<asakura.takuji+cpan at gmail.com>"
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.
