TSUNODA Kazuya > DBIx-Class-Schema-Loader-DBI-Oracle-0.01 > DBIx::Class::Schema::Loader::DBI::Oracle

Download:
DBIx-Class-Schema-Loader-DBI-Oracle-0.01.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Source  

NAME ^

DBIx::Class::Schema::Loader::DBI::Oracle - DBIx::Class::Schema::Loader::DBI Postgres Implementation.

SYNOPSIS ^

  package My::Schema;
  use base qw/DBIx::Class::Schema::Loader/;

  __PACKAGE__->loader_options(
    relationships => 1,
  );

  1;

DESCRIPTION ^

before you use DBIx::Class::Schema::Loader::DBI::Oracle, you had better modify DBD::Oracle.
because DBD::Oracle is slow to load shema. I modified DBD::Oracle-1.17 as follows. 
371,372c371,372
<               if ( defined $SchVal ) {
<                       push @Where, "TABLE_SCHEM LIKE '$SchVal' ESCAPE '\\'";
---
>               if ( defined $SchVal && $SchVal ne '%' ) {
>                       push @Where, ($SchVal =~ /%/) ? "TABLE_SCHEM LIKE '$SchVal' ESCAPE '\\'" : "TABLE_SCHEM = '$SchVal'";
374,375c374,375
<               if ( defined $TblVal ) {
<                       push @Where, "TABLE_NAME  LIKE '$TblVal' ESCAPE '\\'";
---
>               if ( defined $TblVal && $TblVal ne '%' ) {
>                       push @Where, ($TblVal =~ /%/) ? "TABLE_NAME  LIKE '$TblVal' ESCAPE '\\'" : "TABLE_NAME  = '$TblVal'";
376a377
>
621,622c622,623
<           if ( $v ) {
<               $Sql .= "   AND $k LIKE ? ESCAPE '\\'\n";
---
>           if( $v && $v ne '%' ) {
>               $Sql .= ($v =~ /%/) ? "   AND $k LIKE ? ESCAPE '\\'\n" : "   AND $k = ?\n";

See DBIx::Class::Schema::Loader::Base.

SEE ALSO ^

DBIx::Class::Schema::Loader, DBIx::Class::Schema::Loader::Base, DBIx::Class::Schema::Loader::DBI

syntax highlighting: