File Coverage

blib/lib/Data/TxnBuffer/Base.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	28	28	100.0

package Data::TxnBuffer::Base;
use strict;
use warnings;
use Try::Tiny;

sub txn_read {
    my ($self, $code) = @_;

    my ($ret, $err);
    try {
        $code->($self);
        $ret = $self->spin;
    } catch {
        $err = $_;
        $self->reset;
    };

    if ($err) {
        # rethrow
        die $err;
    }

    $ret;
}

1;

__END__