File Coverage

blib/lib/MouseX/NativeTraits/MethodProvider/CodeRef.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	28	28	100.0

package MouseX::NativeTraits::MethodProvider::CodeRef;
use Mouse;

extends qw(MouseX::NativeTraits::MethodProvider);

sub generate_execute {
    my($self)  = @_;
    my $reader = $self->reader;

    return sub {
        my ($instance, @args) = @_;
        $reader->($instance)->(@args);
    };
}

sub generate_execute_method {
    my($self)  = @_;
    my $reader = $self->reader;

    return sub {
        my ($instance, @args) = @_;
        $reader->($instance)->($instance, @args);
    };
}

no Mouse;
__PACKAGE__->meta->make_immutable();

__END__