sub DESTROY { my $self = shift; unless ( $self->{Handle}->{AutoCommit} ) { $self->{Handle}->commit; } if ( $self->{_disconnect} ) { undef $self->{Handle}; } }