File Coverage

lib/UR/Role/MethodModifier/Around.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	21	23	91.3

package UR::Role::MethodModifier::Around;
use strict;
use warnings;

our $VERSION = "0.46"; # UR $VERSION;

use UR;

UR::Object::Type->define(
    class_name => 'UR::Role::MethodModifier::Around',
    is => 'UR::Role::MethodModifier',
);

sub type { 'around' }

sub create_wrapper_sub {
    my($self, $original_sub) = @_;

    my $around = $self->code;
    return sub {
        $around->($original_sub, @_);
    };
}

1;