[Bast-commits] r9430 - DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/Storage/DBI

[abraxxa at dev.catalyst.perl.org]

Author: abraxxa
Date: 2010-05-25 17:09:46 +0100 (Tue, 25 May 2010)
New Revision: 9430

Modified:
   DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/Storage/DBI/Oracle.pm
Log:
added _supports_insert_returning to Storage::Oracle


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 15:55:26 UTC (rev 9429)
+++ DBIx-Class/0.08/branches/oracle_returning/lib/DBIx/Class/Storage/DBI/Oracle.pm	2010-05-25 16:09:46 UTC (rev 9430)
@@ -18,6 +18,15 @@
     bless $self, $class;
 }
 
+sub _supports_insert_returning {
+  my $self = shift;
+
+  return 1
+    if $self->_server_info->{normalized_dbms_version} >= 10;
+
+  return 0;
+}
+
 1;
 
 =head1 NAME