[Dbix-class] Oracle 8 w/DBIx::Class

[Igor Longagnani]

Many thanks Justin,
I needed it and I wrote some unpacked code to solve my "local" problem.
I will use thisclass...which is surely better code than mine

Thanks again.
Igor

Justin W ha scritto:
> Hi,
>
> I read that someone on this list was looking for Oracle 8 support in
> DBIx::Class.  I have needed the same thing, and ended up writing it. =

> It is attached.
>
> It does not have a test suite, so you'll have to just use it, and hope
> it works out for you.  Anyone is welcome to write and contribute test
> code for it.
>
> #include
> <standard-disclaimer-about-not-knowing-dbic-internals-very-well-and-the-p=
ossibility-of-this-code-being-completely-wrong.h>
>
>
> To use it, in your base module, after:
>
> use base qw( DBIx::Class::Schema );
>
> Put:
>
> __PACKAGE__->storage_type('DBIx::Class::Storage::DBI::Oracle8');
>
> It should just work after that.
>
> Justin
> ------------------------------------------------------------------------
>
> package DBIx::Class::Storage::DBI::Oracle8;
>
> use base qw( DBIx::Class::Storage::DBI::Oracle );
>
> use strict;
> use warnings;
>
> BEGIN {
>   package DBIC::SQL::Abstract::Oracle8;
>
>   use base qw( DBIC::SQL::Abstract );
>
>   sub select {
>     my ($self, $table, $fields, $where, $order, @rest) =3D @_;
>
>     $self->_oracle_joins($where, @{ $table });
>
>     return $self->SUPER::select($table, $fields, $where, $order, @rest);
>   }
>
>   sub _recurse_from {
>     my ($self, $from, @join) =3D @_;
>
>     my @sqlf =3D $self->_make_as($from);
>
>     foreach my $j (@join) {
>       my ($to, $on) =3D @{ $j };
>
>       if (ref $to eq 'ARRAY') {
>         push (@sqlf, $self->_recurse_from(@{ $to }));
>       }
>       else {
>         push (@sqlf, $self->_make_as($to));
>       }
>     }
>
>     return join q{, }, @sqlf;
>   }
>
>   sub _oracle_joins {
>     my ($self, $where, $from, @join) =3D @_;
>
>     foreach my $j (@join) {
>       my ($to, $on) =3D @{ $j };
>
>       if (ref $to eq 'ARRAY') {
>         $self->_oracle_joins($where, @{ $to });
>       }
>
>       my $to_jt      =3D ref $to eq 'ARRAY' ? $to->[0] : $to;
>       my $left_join  =3D q{};
>       my $right_join =3D q{};
>
>       if (ref $to_jt eq 'HASH' and exists $to_jt->{-join_type}) {
>         #TODO: Support full outer joins -- this would happen much earlier=
 in
>         #the sequence since oracle 8's full outer join syntax is best
>         #described as INSANE.
>         die "Can't handle full outer joins in Oracle 8 yet!\n"
>           if $to_jt->{-join_type} =3D~ /full/i;
>
>         $left_join  =3D q{(+)} if $to_jt->{-join_type} =3D~ /right/i
>                              && $to_jt->{-join_type} !~ /inner/i;
>
>         $right_join =3D q{(+)} if $to_jt->{-join_type} =3D~ /left/i
>                              && $to_jt->{-join_type} !~ /inner/i;
>       }
>
>       foreach my $lhs (keys %{ $on }) {
>         $where->{$lhs . $left_join} =3D \" =3D $on->{ $lhs }$right_join";
>       }
>     }
>   }
> }
>
> sub sql_maker {
>   my ($self) =3D @_;
>
>   unless ($self->_sql_maker) {
>     $self->_sql_maker(
>       new DBIC::SQL::Abstract::Oracle8( $self->_sql_maker_args )
>     );
>   }
>
>   return $self->_sql_maker;
> }
>
> 1;
>
> __END__
>
> =3Dpod
>
> =3Dhead1 DBIx::Class::Storage::DBI::Oracle8
>
> =3Dhead2 Purpose
>
> This module's purpose is to provide DBIx::Class with some (rudimentary)
> Oracle 8 support, as Oracle does not support:
>
>     SELECT x FROM y JOIN z ON y.id =3D z.id
>
> Oracle requires the query by written as:
>
>     SELECT x FROM y, z WHERE y.id =3D z.id
>
> This module attempts to support that.  It should properly support left jo=
ins,
> and right joins.  Full outer joins are not possible due to the fact that
> Oracle 8 requires the entire query be written to union the results of a l=
eft
> and right join, and by the time this module is called to create the where
> query and table definition part of the sql query, it's already too late.
>
> =3Dhead2 Synopsis
>
> When initialising your code in the base DBIx module, simply tell DBIx to =
use
> this as a storage class, and you're set:
>
>     use base qw( DBIx::Class::Schema );
>
>     __PACKAGE__->storage_type('DBIx::Class::Storage::DBI::Oracle8');
>     __PACKAGE__->load_classes();
>
>     ... continue as normal.
>
> =3Dhead2 Methods
>
> This module replaces a subroutine contained in DBIC::SQL::Abstract:
>
> =3Dover
>
> =3Ditem sql_maker
>
> =3Dback
>
> It also creates a new module in its BEGIN { } block called
> DBIC::SQL::Abstract::Oracle8 which has the following methods:
>
> =3Dover
>
> =3Ditem select ($\@$;$$@)
>
> Replaces DBIC::SQL::Abstract's select() method, which calls _oracle_joins=
()
> to modify the column and table list before calling SUPER::select().
>
> =3Ditem _recurse_from ($$\@)
>
> Recursive subroutine that builds the table list.
>
> =3Ditem _oracle_joins ($$$@)
>
> Creates the left/right relationship in the where query.
>
> =3Dback
>
> =3Dhead2 Bugs
>
> Does not support full outer joins.
> Probably lots more.
>
> =3Dhead2 See Also
>
> =3Dover
>
> =3Ditem L<DBIC::SQL::Abstract>
>
> =3Ditem L<DBIx::Class>
>
> =3Dback
>
> =3Dhead2 Author
>
> Justin Wheeler <justin.wheeler at caledoncard.com>
>
> =3Dhead2 Licence
>
> This module is licensed under the same terms as Perl itself.
>
> =3Dcut
>
>   =

> ------------------------------------------------------------------------
>
> _______________________________________________
> List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
> Wiki: http://dbix-class.shadowcatsystems.co.uk/
> IRC: irc.perl.org#dbix-class
> SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/
> Searchable Archive: http://www.mail-archive.com/dbix-class@lists.rawmode.=
org/


-- =

Igor Longagnani c/o Synervis
-------------------------------------------------------------------
e-mail: i.longagnani at synervis.it             phone : +39 059 558442

sede operativa: via Pirandello, 49/51 - 41043 Formigine (Mo) Italia

-------------- next part --------------
A non-text attachment was scrubbed...
Name: i.longagnani.vcf
Type: text/x-vcard
Size: 159 bytes
Desc: not available
Url : http://lists.scsys.co.uk/pipermail/dbix-class/attachments/20070102/2f=
44bb2d/i.longagnani-0001.vcf