• NAME
• SYNOPSIS
• DESCRIPTION
• transaction
• AUTHOR
• LICENSE

NAME

Maypole::Plugin::Transaction - Transaction handling for Maypole

SYNOPSIS

Simple transaction:

    package MyApp;

    use Maypole::Application qw(Transaction);

    # You should AutoCommit by default
    MyApp->setup( 'dbi:Pg:dbname=myapp', 'myuser', 'mypass',
        { AutoCommit => 1 } );

    sub do_something : Exported {
        my ( $self, $r ) = @_;
        my $h = CGI::Untaint->new( %{ $r->{params} } );
        warn 'Transaction failed!'
            unless $r->transaction( sub { $self->create_from_cgi($h) } );
    }

Advanced transaction with exception handling:

    package MyApp;

    use Maypole::Application qw(Transaction);
    use Maypole::Constants;
    use Exception::Class TransactionException =>
      { description => 'Transaction failed, so rolled back' };

    # You should AutoCommit by default
    MyApp->setup( 'dbi:Pg:dbname=myapp', 'myuser', 'mypass',
        { AutoCommit => 1 } );
    MyApp->config->transaction_exception('TransactionException');

    sub exception {
        my ( $r, $e ) = @_;
        if ( $e->isa('TransactionException') ) {
            warn "Transaction failed: $e";
            # Do something to correct the failure
            return OK;
        }
        return ERROR;
    }

    sub do_something : Exported {
        my ( $self, $r ) = @_;
        my $h = CGI::Untaint->new( %{ $r->{params} } );
        $r->transaction( sub { $self->create_from_cgi($h) } );
    }

DESCRIPTION

Commit, Rollback and throwing Exceptions!

Note that you need Maypole 2.0 or newer to use this module!

transaction

    my $status = $r->transaction( $coderef, $exception );

Returns true or false, the exception argument is optional.

AUTHOR

Sebastian Riedel, sri@oook.de

LICENSE

This library is free software. You can redistribute it and/or modify it under the same terms as perl itself.