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.92';
   5 $VERSION = eval $VERSION;
   6 our $AUTHORITY = 'cpan:STEVAN';
   7
   8 sub execute : method {
   9     my ( $attr, $reader, $writer ) = @_;
  10     return sub { my ($self, @args) = @_; $reader->($self)->(@args) };
  11 }
  12
  13 no Moose::Role;
  14
  15 1;
  16
  17 __END__
  18
  19 =pod
  20
  21 =head1 NAME
  22
  23 Moose::Meta::Attribute::Native::MethodProvider::Code
  24
  25 =head1 DESCRIPTION
  26
  27 This is a role which provides the method generators for
  28 L<Moose::Meta::Attribute::Native::Trait::Code>. Please check there for
  29 documentation on what methods are provided.
  30
  31 =head1 METHODS
  32
  33 =over 4
  34
  35 =item B<meta>
  36
  37 =back
  38
  39 =head1 BUGS
  40
  41 All complex software has bugs lurking in it, and this module is no
  42 exception. If you find a bug please either email me, or add the bug
  43 to cpan-RT.
  44
  45 =head1 AUTHOR
  46
  47   Florian Ragwitz <rafl@debian.org>
  48
  49 =head1 COPYRIGHT AND LICENSE
  50
  51 Copyright 2007-2009 by Infinity Interactive, Inc.
  52
  53 L<http://www.iinteractive.com>
  54
  55 This library is free software; you can redistribute it and/or modify
  56 it under the same terms as Perl itself.
  57
  58 =cut