local-lib5/lib/perl5/MooseX/MethodAttributes/Role/Meta/Method/Wrapped.pm

   1 package MooseX::MethodAttributes::Role::Meta::Method::Wrapped;
   2 our $VERSION = '0.18';
   3
   4 # ABSTRACT: wrapped metamethod role allowing code attribute introspection
   5
   6 use Moose::Role;
   7
   8 use namespace::clean -except => 'meta';
   9
  10
  11 sub attributes {
  12     my ($self) = @_;
  13     return $self->get_original_method->attributes;
  14 }
  15
  16 sub _get_attributed_coderef {
  17     my ($self) = @_;
  18     return $self->get_original_method->_get_attributed_coderef;
  19 }
  20
  21 1;
  22
  23 __END__
  24
  25 =pod
  26
  27 =head1 NAME
  28
  29 MooseX::MethodAttributes::Role::Meta::Method::Wrapped - wrapped metamethod role allowing code attribute introspection
  30
  31 =head1 VERSION
  32
  33 version 0.18
  34
  35 =head1 METHODS
  36
  37 =head2 attributes
  38
  39 Gets the list of code attributes of the original method this meta method wraps.
  40
  41
  42
  43 =head1 AUTHORS
  44
  45   Florian Ragwitz <rafl@debian.org>
  46   Tomas Doran <bobtfish@bobtfish.net>
  47
  48 =head1 COPYRIGHT AND LICENSE
  49
  50 This software is copyright (c) 2009 by Florian Ragwitz.
  51
  52 This is free software; you can redistribute it and/or modify it under
  53 the same terms as perl itself.
  54
  55 =cut
  56
  57