File Coverage

lib/UR/Role/MethodModifier/Before.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	2	0.0
total	26	32	81.2

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

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

use UR;

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

sub type { 'before' }

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

    my $before = $self->code;
    return sub {
        if (wantarray) {
            () = $before->(@_);
        } elsif (defined wantarray) {
            my $rv = $before->(@_);
        } else {
            $before->(@_);
        }
        $original_sub->(@_);
    };
}

1;