Help for this page
sub DESTROY { my $self = shift; ... } $self->{ _dbh }->disconnect; }
sub update_admin_message { my ( $self, $data_hash ) = @_; ... my $data = $self->_update_database( $sql, $values ); $self->{ _dbh }->commit if ! $self->{ _error }; }