X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FODBC%2FDB2_400_SQL.pm;h=29e9da9d81b13541804f1bc5885dff8fff82afb0;hb=2149a4e91f82d2f77657c18d4a0b312327987d5d;hp=1bed7f58714550a9823b8082e46cda6c4464f7e1;hpb=d4daee7b54e38e4b3d3d0a77759bddc1a4ede6e5;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/ODBC/DB2_400_SQL.pm b/lib/DBIx/Class/Storage/DBI/ODBC/DB2_400_SQL.pm index 1bed7f5..29e9da9 100644 --- a/lib/DBIx/Class/Storage/DBI/ODBC/DB2_400_SQL.pm +++ b/lib/DBIx/Class/Storage/DBI/ODBC/DB2_400_SQL.pm @@ -5,6 +5,21 @@ use warnings; use base qw/DBIx::Class::Storage::DBI::ODBC/; use mro 'c3'; +warn 'Major advances took place in the DBIC codebase since this driver' + .' (::Storage::DBI::ODBC::DB2_400_SQL) was written. However since the' + .' RDBMS in question is so rare it is not possible for us to test any' + .' of the "new hottness". If you are using DB2 on AS-400 please get' + .' in contact with the developer team:' + .' http://search.cpan.org/dist/DBIx-Class/lib/DBIx/Class.pm#GETTING_HELP/SUPPORT' + ."\n" +; + +# FIXME +# Most likely all of this code is redundant and unnecessary. We should +# be able to simply use base qw/DBIx::Class::Storage::DBI::DB2/; +# Unfortunately nobody has an RDBMS engine to test with, so keeping +# things as-is for the time being + sub _dbh_last_insert_id { my ($self, $dbh, $source, $col) = @_; @@ -43,8 +58,8 @@ over ODBC =head1 SYNOPSIS - # In your table classes - __PACKAGE__->load_components(qw/PK::Auto Core/); + # In your result (table) classes + use base 'DBIx::Class::Core'; __PACKAGE__->set_primary_key('id');