r76348 - in /branches/upstream/libima-dbi-contextual-perl/current: Changes META.yml lib/Ima/DBI/Contextual.pm t/testdb

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Thu Jun 23 13:15:49 2011
New Revision: 76348

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76348
Log:
[svn-upgrade] new version libima-dbi-contextual-perl (1.001)

Modified:
    branches/upstream/libima-dbi-contextual-perl/current/Changes
    branches/upstream/libima-dbi-contextual-perl/current/META.yml
    branches/upstream/libima-dbi-contextual-perl/current/lib/Ima/DBI/Contextual.pm
    branches/upstream/libima-dbi-contextual-perl/current/t/testdb

Modified: branches/upstream/libima-dbi-contextual-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libima-dbi-contextual-perl/current/Changes?rev=76348&op=diff
==============================================================================
--- branches/upstream/libima-dbi-contextual-perl/current/Changes (original)
+++ branches/upstream/libima-dbi-contextual-perl/current/Changes Thu Jun 23 13:15:49 2011
@@ -1,3 +1,13 @@
+
+2011-06-05    v1.001
+  - Deprecated commit and rollback methods.
+
+2011-06-01    v1.000
+  - After a year of solid performance, I'm giving Ima::DBI::Contextual a 1.0 version number.
+  - Removed warnings that look like this:
+    "Issuing rollback() due to DESTROY without explicit disconnect()..."
+  - The warnings were caused when the db connection has gone away and we reconnect.
+  - No other changes.
 
 2010-05-21    v0.006
   - db_Main was failing because $dbh->ping alone couldn't detect a dead handle.

Modified: branches/upstream/libima-dbi-contextual-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libima-dbi-contextual-perl/current/META.yml?rev=76348&op=diff
==============================================================================
--- branches/upstream/libima-dbi-contextual-perl/current/META.yml (original)
+++ branches/upstream/libima-dbi-contextual-perl/current/META.yml Thu Jun 23 13:15:49 2011
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:               Ima::DBI::Contextual
-version:            0.006
+version:            1.001
 abstract:           Liteweight dbi handle cache and utility methods.
 author:
     - John Drago <jdrago_999 at yahoo.com>

Modified: branches/upstream/libima-dbi-contextual-perl/current/lib/Ima/DBI/Contextual.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libima-dbi-contextual-perl/current/lib/Ima/DBI/Contextual.pm?rev=76348&op=diff
==============================================================================
--- branches/upstream/libima-dbi-contextual-perl/current/lib/Ima/DBI/Contextual.pm (original)
+++ branches/upstream/libima-dbi-contextual-perl/current/lib/Ima/DBI/Contextual.pm Thu Jun 23 13:15:49 2011
@@ -7,7 +7,7 @@
 use DBI;
 use Digest::MD5 'md5_hex';
 
-our $VERSION = '0.006';
+our $VERSION = '1.001';
 
 
 my %contexts = ( );
@@ -58,6 +58,9 @@
       }
       else
       {
+        # Avoid the dreaded "Issuing rollback() due to DESTROY without explicit disconnect()":
+        eval { $context->{dbh}->disconnect() }
+          if $context->{dbh};
         $context->{dbh} = DBI->connect( @dsn );
         return $context->{dbh};
       }# end if()
@@ -106,7 +109,7 @@
 sub rollback
 {
   my ($class) = @_;
-  
+  confess 'Deprecated';
   $class->db_Main->rollback;
 }# end dbi_rollback()
 
@@ -114,7 +117,7 @@
 sub commit
 {
   my ($class) = @_;
-  
+  confess 'Deprecated';
   $class->db_Main->commit;
 }# end dbi_commit()
 
@@ -140,6 +143,9 @@
 Then, elsewhere:
 
   my $dbh = Foo->db_Main;
+  
+  # Use $dbh like you normally would:
+  my $sth = $dbh->prepare( ... );
 
 =head1 DESCRIPTION
 

Modified: branches/upstream/libima-dbi-contextual-perl/current/t/testdb
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libima-dbi-contextual-perl/current/t/testdb?rev=76348&op=diff
==============================================================================
Binary files - no diff available.