1 package DBIx::Class::SQLMaker::OracleJoins;
6 use base qw( DBIx::Class::SQLMaker::Oracle );
9 my ($self, $table, $fields, $where, $rs_attrs, @rest) = @_;
11 # pull out all join conds as regular WHEREs from all extra tables
12 if (ref($table) eq 'ARRAY') {
13 $where = $self->_oracle_joins($where, @{ $table }[ 1 .. $#$table ]);
16 return $self->next::method($table, $fields, $where, $rs_attrs, @rest);
20 my ($self, $from, @join) = @_;
22 my @sqlf = $self->_from_chunk_to_sql($from);
27 if (ref $to eq 'ARRAY') {
28 push (@sqlf, $self->_recurse_from(@{ $to }));
31 push (@sqlf, $self->_from_chunk_to_sql($to));
35 return join q{, }, @sqlf;
39 my ($self, $where, @join) = @_;
40 my $join_where = $self->_recurse_oracle_joins(@join);
42 if (keys %$join_where) {
43 if (!defined($where)) {
46 if (ref($where) eq 'ARRAY') {
47 $where = { -or => $where };
49 $where = { -and => [ $join_where, $where ] };
55 sub _recurse_oracle_joins {
60 my ($to, $on) = @{ $j };
62 push @where, $self->_recurse_oracle_joins(@{ $to })
63 if (ref $to eq 'ARRAY');
65 my $join_opts = ref $to eq 'ARRAY' ? $to->[0] : $to;
69 if (ref $join_opts eq 'HASH' and my $jt = $join_opts->{-join_type}) {
70 #TODO: Support full outer joins -- this would happen much earlier in
71 #the sequence since oracle 8's full outer join syntax is best
73 $self->throw_exception("Can't handle full outer joins in Oracle 8 yet!\n")
76 $left_join = q{(+)} if $jt =~ /left/i
79 $right_join = q{(+)} if $jt =~ /right/i
83 # FIXME - the code below *UTTERLY* doesn't work with custom conds... sigh
84 # for the time being do not do any processing with the likes of _collapse_cond
85 # instead only unroll the -and hack if present
86 $on = $on->{-and}[0] if (
91 ref $on->{-and} eq 'ARRAY'
96 # sadly SQLA treats where($scalar) as literal, so we need to jump some hoops
97 push @where, map { \sprintf ('%s%s = %s%s',
98 ref $_ ? $self->_recurse_where($_) : $self->_quote($_),
100 ref $on->{$_} ? $self->_recurse_where($on->{$_}) : $self->_quote($on->{$_}),
105 return { -and => \@where };
114 DBIx::Class::SQLMaker::OracleJoins - Pre-ANSI Joins-via-Where-Clause Syntax
118 This module is used with Oracle < 9.0 due to lack of support for standard
123 Not intended for use directly; used as the sql_maker_class for schemas and components.
127 Implements pre-ANSI joins specified in the where clause. Instead of:
129 SELECT x FROM y JOIN z ON y.id = z.id
133 SELECT x FROM y, z WHERE y.id = z.id
135 It should properly support left joins, and right joins. Full outer joins are
136 not possible due to the fact that Oracle requires the entire query be written
137 to union the results of a left and right join, and by the time this module is
138 called to create the where query and table definition part of the sql query,
139 it's already too late.
147 Overrides DBIx::Class::SQLMaker's select() method, which calls _oracle_joins()
148 to modify the column and table list before calling next::method().
154 Does not support full outer joins (however neither really does DBIC itself)
160 =item L<DBIx::Class::Storage::DBI::Oracle::WhereJoins> - Storage class using this
162 =item L<DBIx::Class::SQLMaker> - Parent module
164 =item L<DBIx::Class> - Duh
168 =head1 FURTHER QUESTIONS?
170 Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>.
172 =head1 COPYRIGHT AND LICENSE
174 This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE>
175 by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can
176 redistribute it and/or modify it under the same terms as the
177 L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>.