[Bast-commits] r9433 - in DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class: SQLAHacks Storage/DBI

[abraxxa at dev.catalyst.perl.org]

Author: abraxxa
Date: 2010-05-25 17:42:31 +0100 (Tue, 25 May 2010)
New Revision: 9433

Modified:
   DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/SQLAHacks/Oracle.pm
   DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/Storage/DBI/Oracle.pm
Log:
fixed indention (again)


Modified: DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/SQLAHacks/Oracle.pm
===================================================================
--- DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/SQLAHacks/Oracle.pm	2010-05-25 16:39:26 UTC (rev 9432)
+++ DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/SQLAHacks/Oracle.pm	2010-05-25 16:42:31 UTC (rev 9433)
@@ -8,14 +8,15 @@
 # Oracle has a different INSERT...RETURNING syntax
 #
 sub _insert_returning {
-    my ($self, $fields) = @_;
+  my ($self, $fields) = @_;
 
-    my $f = $self->_SWITCH_refkind($fields, {
-        ARRAYREF     => sub {join ', ', map { $self->_quote($_) } @$fields;},
-        SCALAR       => sub {$self->_quote($fields)},
-        SCALARREF    => sub {$$fields},
-    });
-    return join (' ', $self->_sqlcase(' returning'), $f, $self->_sqlcase('into'), ":$f");
+  my $f = $self->_SWITCH_refkind($fields, {
+    ARRAYREF     => sub {join ', ', map { $self->_quote($_) } @$fields;},
+    SCALAR       => sub {$self->_quote($fields)},
+    SCALARREF    => sub {$$fields},
+  });
+  
+  return join (' ', $self->_sqlcase(' returning'), $f, $self->_sqlcase('into'), ":$f");
 }
 
 1;

Modified: DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/Storage/DBI/Oracle.pm
===================================================================
--- DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/Storage/DBI/Oracle.pm	2010-05-25 16:39:26 UTC (rev 9432)
+++ DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/Storage/DBI/Oracle.pm	2010-05-25 16:42:31 UTC (rev 9433)
@@ -9,24 +9,24 @@
 __PACKAGE__->sql_maker_class('DBIx::Class::SQLAHacks::Oracle');
 
 sub _rebless {
-    my ($self) = @_;
-    
-    # Default driver
-    my $class = $self->_server_info->{normalized_dbms_version} <= 8
-        ? 'DBIx::Class::Storage::DBI::Oracle::WhereJoins'
-        : 'DBIx::Class::Storage::DBI::Oracle::Generic';
+  my ($self) = @_;
 
-    $self->ensure_class_loaded ($class);
-    bless $self, $class;
+  # Default driver
+  my $class = $self->_server_info->{normalized_dbms_version} <= 8
+    ? 'DBIx::Class::Storage::DBI::Oracle::WhereJoins'
+    : 'DBIx::Class::Storage::DBI::Oracle::Generic';
+
+  $self->ensure_class_loaded ($class);
+  bless $self, $class;
 }
 
 sub _supports_insert_returning {
-    my $self = shift;
+  my $self = shift;
 
-    return 1
-        if $self->_server_info->{normalized_dbms_version} >= 10;
+  return 1
+    if $self->_server_info->{normalized_dbms_version} >= 10;
 
-    return 0;
+  return 0;
 }
 
 1;