[Bast-commits] r9448 - DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/SQLAHacks

[abraxxa at dev.catalyst.perl.org]

Author: abraxxa
Date: 2010-05-26 17:46:08 +0100 (Wed, 26 May 2010)
New Revision: 9448

Modified:
   DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/SQLAHacks/Oracle.pm
Log:
renamed _generate_bind_param_name to _gen_io_bind_name


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-26 16:44:00 UTC (rev 9447)
+++ DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/SQLAHacks/Oracle.pm	2010-05-26 16:46:08 UTC (rev 9448)
@@ -8,7 +8,7 @@
 # Oracle has a different INSERT...RETURNING syntax
 #
 
-sub _generate_bind_param_name {
+sub _gen_io_bind_name {
   my ($self, $colname) = @_;
 
   return ":$colname";
@@ -24,9 +24,9 @@
   });
   
   my $bind_f = $self->_SWITCH_refkind($fields, {
-    ARRAYREF     => sub {join ', ', map { $self->_generate_bind_param_name($_) } @$fields;},
-    SCALAR       => sub {$self->_generate_bind_param_name($fields)},
-    SCALARREF    => sub {$self->_generate_bind_param_name($$fields)},
+    ARRAYREF     => sub {join ', ', map { $self->_gen_io_bind_name($_) } @$fields;},
+    SCALAR       => sub {$self->_gen_io_bind_name($fields)},
+    SCALARREF    => sub {$self->_gen_io_bind_name($$fields)},
   });
   
   return join (' ', $self->_sqlcase(' returning'), $f, $self->_sqlcase('into'), $bind_f);