t/lib/AtomicMethod/Role/Method.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package AtomicMethod::Role::Method;
use Moose::Role;

around wrap => sub {
    my ($orig, $self, $body, @args) = @_;
    my $new_body = sub {
        warn "locking...\n";
        my @ret = $body->(@_); # XXX: context
        warn "unlocking...\n";
        return @ret;
    };
    $self->$orig($new_body, @args);
};

1;