lib/Moose/Meta/Attribute/Native/MethodProvider/Code.pm

   1 package Moose::Meta::Attribute::Native::MethodProvider::Code;
   2 use Moose::Role;
   3
   4 our $VERSION   = '0.87';
   5 $VERSION = eval $VERSION;
   6 our $AUTHORITY = 'cpan:STEVAN';
   7
   8 sub execute : method {
   9     my ( $attr, $reader, $writer ) = @_;
  10     return sub { $reader->(@_)->(@_) };
  11 }
  12
  13 no Moose::Role;
  14
  15 1;