Prepare for 1.0020

[dbsrgits/DBM-Deep.git] / lib / DBM / Deep / Engine / DBI.pm

diff --git a/lib/DBM/Deep/Engine/DBI.pm b/lib/DBM/Deep/Engine/DBI.pm
index cfdab69..f52bb6c 100644 (file)
--- a/lib/DBM/Deep/Engine/DBI.pm
+++ b/lib/DBM/Deep/Engine/DBI.pm
@@ -284,59 +284,59 @@ sub write_value {
     return 1;
 }
 
-sub begin_work {
-    my $self = shift;
-    die "Transactions are not supported by this engine"
-        unless $self->supports('transactions');
-
-    if ( $self->in_txn ) {
-        DBM::Deep->_throw_error( "Cannot begin_work within an active transaction" );
-    }
-
-    $self->storage->begin_work;
-
-    $self->in_txn( 1 );
-
-    return 1;
-} 
-
-sub rollback {
-    my $self = shift;
-    die "Transactions are not supported by this engine"
-        unless $self->supports('transactions');
-
-    if ( !$self->in_txn ) {
-        DBM::Deep->_throw_error( "Cannot rollback without an active transaction" );
-    }
-
-    $self->storage->rollback;
-
-    $self->in_txn( 0 );
-
-    return 1;
-} 
-
-sub commit {
-    my $self = shift;
-    die "Transactions are not supported by this engine"
-        unless $self->supports('transactions');
-
-    if ( !$self->in_txn ) {
-        DBM::Deep->_throw_error( "Cannot commit without an active transaction" );
-    }
-
-    $self->storage->commit;
-
-    $self->in_txn( 0 );
-
-    return 1;
-}
-
-sub in_txn {
-    my $self = shift;
-    $self->{in_txn} = shift if @_;
-    $self->{in_txn};
-}
+#sub begin_work {
+#    my $self = shift;
+#    die "Transactions are not supported by this engine"
+#        unless $self->supports('transactions');
+#
+#    if ( $self->in_txn ) {
+#        DBM::Deep->_throw_error( "Cannot begin_work within an active transaction" );
+#    }
+#
+#    $self->storage->begin_work;
+#
+#    $self->in_txn( 1 );
+#
+#    return 1;
+#} 
+#
+#sub rollback {
+#    my $self = shift;
+#    die "Transactions are not supported by this engine"
+#        unless $self->supports('transactions');
+#
+#    if ( !$self->in_txn ) {
+#        DBM::Deep->_throw_error( "Cannot rollback without an active transaction" );
+#    }
+#
+#    $self->storage->rollback;
+#
+#    $self->in_txn( 0 );
+#
+#    return 1;
+#} 
+#
+#sub commit {
+#    my $self = shift;
+#    die "Transactions are not supported by this engine"
+#        unless $self->supports('transactions');
+#
+#    if ( !$self->in_txn ) {
+#        DBM::Deep->_throw_error( "Cannot commit without an active transaction" );
+#    }
+#
+#    $self->storage->commit;
+#
+#    $self->in_txn( 0 );
+#
+#    return 1;
+#}
+#
+#sub in_txn {
+#    my $self = shift;
+#    $self->{in_txn} = shift if @_;
+#    $self->{in_txn};
+#}
 
 sub supports {
     my $self = shift;