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.93_01';
   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 See L<Moose/BUGS> for details on reporting bugs.
  42
  43 =head1 AUTHOR
  44
  45   Florian Ragwitz <rafl@debian.org>
  46
  47 =head1 COPYRIGHT AND LICENSE
  48
  49 Copyright 2007-2009 by Infinity Interactive, Inc.
  50
  51 L<http://www.iinteractive.com>
  52
  53 This library is free software; you can redistribute it and/or modify
  54 it under the same terms as Perl itself.
  55
  56 =cut