env var

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / Storage / DBI / ODBC400.pm

diff --git a/lib/DBIx/Class/Storage/DBI/ODBC400.pm b/lib/DBIx/Class/Storage/DBI/ODBC400.pm
index 5800ab4..7fdd1f8 100644 (file)
--- a/lib/DBIx/Class/Storage/DBI/ODBC400.pm
+++ b/lib/DBIx/Class/Storage/DBI/ODBC400.pm
@@ -12,7 +12,7 @@ sub last_insert_id
 
     # get the schema/table separator:
     #    '.' when SQL naming is active
-    #    '/' when sytem naming is active
+    #    '/' when system naming is active
     my $sep = $dbh->get_info(41);
     my $sth = $dbh->prepare_cached(
         "SELECT IDENTITY_VAL_LOCAL() FROM SYSIBM${sep}SYSDUMMY1", {}, 3);
@@ -36,14 +36,6 @@ over ODBC
   __PACKAGE__->load_components(qw/PK::Auto Core/);
   __PACKAGE__->set_primary_key('id');
 
-  # In your Schema class
-  __PACKAGE__->storage_type('::DBI::ODBC400');
-
-=for comment
-$dbh->get_info(17) returns 'DB2/400 SQL' for an active DB2/400 connection over
-ODBC.  This should facility automagically loading this module when
-appropriate instead of manually specifying the storage_type as shown above.
-
 
 =head1 DESCRIPTION
 
@@ -54,6 +46,8 @@ This class implements autoincrements for DB2/400 over ODBC.
 
 Marc Mims C<< <marc@questright.com> >>
 
+Based on DBIx::Class::Storage::DBI::DB2 by Jess Robinson.
+
 =head1 LICENSE
 
 You may distribute this code under the same terms as Perl itself.