/usr/share/perl5/MouseX/NativeTraits/MethodProvider/CodeRef.pm is in libmousex-nativetraits-perl 1.09-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | 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__
=head1 NAME
MouseX::NativeTraits::MethodProvider::CodeRef - Provides methods for CodeRef
=head1 DESCRIPTION
This class provides method generators for the C<Code> trait.
See L<Mouse::Meta::Attribute::Custom::Trait::Code> for details.
=head1 METHOD GENERATORS
=over 4
=item generate_execute
=item generate_execute_method
=back
=head1 SEE ALSO
L<MouseX::NativeTraits>
=cut
|