1 package # Hide from PAUSE
2 DBIx::Class::SQLMaker::OracleJoins;
4 use base qw( DBIx::Class::SQLMaker::Oracle );
7 my ($self, $table, $fields, $where, $rs_attrs, @rest) = @_;
9 if (ref($table) eq 'ARRAY') {
10 $where = $self->_oracle_joins($where, @{ $table });
13 return $self->SUPER::select($table, $fields, $where, $rs_attrs, @rest);
17 my ($self, $from, @join) = @_;
19 my @sqlf = $self->_from_chunk_to_sql($from);
24 if (ref $to eq 'ARRAY') {
25 push (@sqlf, $self->_recurse_from(@{ $to }));
28 push (@sqlf, $self->_from_chunk_to_sql($to));
32 return join q{, }, @sqlf;
36 my ($self, $where, $from, @join) = @_;
38 $self->_recurse_oracle_joins($join_where, $from, @join);
39 if (keys %$join_where) {
40 if (!defined($where)) {
43 if (ref($where) eq 'ARRAY') {
44 $where = { -or => $where };
46 $where = { -and => [ $join_where, $where ] };
52 sub _recurse_oracle_joins {
53 my ($self, $where, $from, @join) = @_;
55 foreach my $j (@join) {
56 my ($to, $on) = @{ $j };
58 if (ref $to eq 'ARRAY') {
59 $self->_recurse_oracle_joins($where, @{ $to });
62 my $to_jt = ref $to eq 'ARRAY' ? $to->[0] : $to;
66 if (ref $to_jt eq 'HASH' and exists $to_jt->{-join_type}) {
67 #TODO: Support full outer joins -- this would happen much earlier in
68 #the sequence since oracle 8's full outer join syntax is best
70 $self->throw_exception("Can't handle full outer joins in Oracle 8 yet!\n")
71 if $to_jt->{-join_type} =~ /full/i;
73 $left_join = q{(+)} if $to_jt->{-join_type} =~ /left/i
74 && $to_jt->{-join_type} !~ /inner/i;
76 $right_join = q{(+)} if $to_jt->{-join_type} =~ /right/i
77 && $to_jt->{-join_type} !~ /inner/i;
80 foreach my $lhs (keys %{ $on }) {
81 $where->{$lhs . $left_join} = \"= $on->{ $lhs }$right_join";
92 DBIx::Class::SQLMaker::OracleJoins - Pre-ANSI Joins-via-Where-Clause Syntax
96 This module was originally written to support Oracle < 9i where ANSI joins
97 weren't supported at all, but became the module for Oracle >= 8 because
98 Oracle's optimising of ANSI joins is horrible.
102 Not intended for use directly; used as the sql_maker_class for schemas and components.
106 Implements pre-ANSI joins specified in the where clause. Instead of:
108 SELECT x FROM y JOIN z ON y.id = z.id
112 SELECT x FROM y, z WHERE y.id = z.id
114 It should properly support left joins, and right joins. Full outer joins are
115 not possible due to the fact that Oracle requires the entire query be written
116 to union the results of a left and right join, and by the time this module is
117 called to create the where query and table definition part of the sql query,
118 it's already too late.
124 =item select ($\@$;$$@)
126 Replaces DBIx::Class::SQLMaker's select() method, which calls _oracle_joins()
127 to modify the column and table list before calling SUPER::select().
129 =item _recurse_from ($$\@)
131 Recursive subroutine that builds the table list.
133 =item _oracle_joins ($$$@)
135 Creates the left/right relationship in the where query.
141 Does not support full outer joins.
148 =item L<DBIx::Class::Storage::DBI::Oracle::WhereJoins> - Storage class using this
150 =item L<DBIx::Class::SQLMaker> - Parent module
152 =item L<DBIx::Class> - Duh
158 Justin Wheeler C<< <jwheeler@datademons.com> >>
162 David Jack Olrik C<< <djo@cpan.org> >>
166 This module is licensed under the same terms as Perl itself.