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.