view release on metacpan or  search on metacpan

t/02searches_joins.t  view on Meta::CPAN

            column2 => 'user_id',
        ),
        "joined table"
    );
    $users_obj->limit( alias => $g2u_alias, column => 'group_id', value => "$groups_alias.id", quote_value => 0);
    $users_obj->limit( alias => $groups_alias, column => 'name', value => 'Developers' );
    #diag $users_obj->build_select_query;
    is( $users_obj->count, 3, "three members" );
}

diag "cascaded LEFT JOIN optimization" if $ENV{'TEST_VERBOSE'}; 
{
    $users_obj->clean_slate;
    is_deeply( $users_obj, $clean_obj, 'after clean_slate looks like new object');
    ok( !$users_obj->_is_joined, "new object isn't joined");
    my $alias = $users_obj->join(
        type   => 'LEFT',
        column1 => 'id',
        table2 => 'user_to_groups',
        column2 => 'user_id'
    );