From: Marc Mims <marc@questright.com>
Date: Tue, 11 Jul 2006 16:44:15 +0000 (+0000)
Subject: Was replaced by ODBC.pm and ODBC/DB2_400_SQL.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2352a24183c1ae0cc4c97a6f8cec4c70657fd559;p=dbsrgits%2FDBIx-Class-Historic.git

Was replaced by ODBC.pm and ODBC/DB2_400_SQL.pm
---

diff --git a/lib/DBIx/Class/Storage/DBI/ODBC400.pm b/lib/DBIx/Class/Storage/DBI/ODBC400.pm
deleted file mode 100644
index 7fdd1f8..0000000
--- a/lib/DBIx/Class/Storage/DBI/ODBC400.pm
+++ /dev/null
@@ -1,55 +0,0 @@
-package DBIx::Class::Storage::DBI::ODBC400;
-use strict;
-use warnings;
-
-use base qw/DBIx::Class::Storage::DBI/;
-
-sub last_insert_id
-{
-    my ($self) = @_;
-
-    my $dbh = $self->_dbh;
-
-    # get the schema/table separator:
-    #    '.' when SQL 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);
-    $sth->execute();
-
-    my @res = $sth->fetchrow_array();
-
-    return @res ? $res[0] : undef;
-}
-
-1;
-
-=head1 NAME
-
-DBIx::Class::Storage::DBI::ODBC400 - Automatic primary key class for DB2/400
-over ODBC
-
-=head1 SYNOPSIS
-
-  # In your table classes
-  __PACKAGE__->load_components(qw/PK::Auto Core/);
-  __PACKAGE__->set_primary_key('id');
-
-
-=head1 DESCRIPTION
-
-This class implements autoincrements for DB2/400 over ODBC.
-
-
-=head1 AUTHORS
-
-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.
-
-=cut