Class::DBI::Sweetで外部結合（など）を使う - Class::DBI::Sweet::More

Perl CDBI

Class::DBI::Sweetで外部結合（など）を使う - Class::DBI::Sweet::More

　というわけでClass::DBI::Sweetで外部結合（など）を使えるようにしたClass::DBI::Sweet::Moreを作ってみました（CPAN）。

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.

　……こういうのって、Class::DBI::Sweetの作者にパッチとして送ったほうが良かったのかな。