[Bast-commits] r7054 - DBIx-Class/0.08/branches/reduce_pings/lib/DBIx/Class/Storage/DBI/ODBC

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-07-15 19:10:27 +0000 (Wed, 15 Jul 2009)
New Revision: 7054

Modified:
   DBIx-Class/0.08/branches/reduce_pings/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm
Log:
rename _scope_identity to _identity for odbc/mssql

Modified: DBIx-Class/0.08/branches/reduce_pings/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm
===================================================================
--- DBIx-Class/0.08/branches/reduce_pings/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm	2009-07-15 16:55:35 UTC (rev 7053)
+++ DBIx-Class/0.08/branches/reduce_pings/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm	2009-07-15 19:10:27 UTC (rev 7054)
@@ -8,7 +8,7 @@
 use List::Util();
 
 __PACKAGE__->mk_group_accessors(simple => qw/
-  _scope_identity _using_dynamic_cursors
+  _identity _using_dynamic_cursors
 /);
 
 =head1 NAME
@@ -207,13 +207,13 @@
         ($identity) = $self->_dbh->selectrow_array('select @@identity');
       }
 
-      $self->_scope_identity($identity);
+      $self->_identity($identity);
     }
 
     return wantarray ? ($rv, $sth, @bind) : $rv;
 }
 
-sub last_insert_id { shift->_scope_identity() }
+sub last_insert_id { shift->_identity() }
 
 1;