local-lib5/lib/perl5/MooseX/MethodAttributes/Role/AttrContainer/Inheritable.pm

   1 package MooseX::MethodAttributes::Role::AttrContainer::Inheritable;
   2 our $VERSION = '0.18';
   3
   4 # ABSTRACT: capture code attributes in the automatically initialized metaclass instance
   5
   6
   7 use Moose::Role;
   8 use MooseX::MethodAttributes ();
   9
  10 use namespace::clean -except => 'meta';
  11
  12 with 'MooseX::MethodAttributes::Role::AttrContainer';
  13
  14 before MODIFY_CODE_ATTRIBUTES => sub {
  15     my ($class, $code, @attrs) = @_;
  16     return unless @attrs;
  17         MooseX::MethodAttributes->init_meta( for_class => $class );
  18 };
  19
  20 1;
  21
  22
  23 __END__
  24
  25 =pod
  26
  27 =head1 NAME
  28
  29 MooseX::MethodAttributes::Role::AttrContainer::Inheritable - capture code attributes in the automatically initialized metaclass instance
  30
  31 =head1 VERSION
  32
  33 version 0.18
  34
  35 =head1 DESCRIPTION
  36
  37 This role extends C<MooseX::MethodAttributes::Role::AttrContainer> with the
  38 functionality of automatically initializing a metaclass for the caller and
  39 applying the meta roles relevant for capturing method attributes.
  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