has 'log_message' => (
    isa => 'Str',
    is => 'ro',
    writer => '_set_log_message',
    clearer => '_clear_log_message'
);

sub commit {
    my ($self, $msg, @args) = @_;

    print STDERR "COMMIT CALLED WITH MSG ($msg)\n";
    print STDERR "CURRENT MSG (".$self->log_message.")\n";

    $self->set_log_message($msg) if defined $msg;
    my $new_msg = $self->log_message;

    print STDERR "NEW MSG (".$new_msg.")\n";
    use Data::Dumper;
    print STDERR "DUMPED NEW MSG:".Dumper $new_msg;

    return $self->client_obj->commit(@args);
}

sub set_log_message {
    my ($self, $msg) = @_;
    $self->_set_log_message($msg);
}

sub log_message_callback {
    my $self = shift;

    my $log_msg = $self->log_message;

    use Data::Dumper;
    print STDERR "0 RETURNING (".$self->log_message.")\n";
    print STDERR "1 RETURNING ($log_msg)\n";
    print STDERR "LOG DUMP1:".Dumper $log_msg;
    print STDERR "LOG DUMP2:".Dumper $self;

    $_[0] = \$log_msg;

    $self->_clear_log_message;
}