MooseX::MethodAttributes::Role::Meta::Method - metamethod role allowing code attribute introspection

MooseX-MethodAttributes documentation Contained in the MooseX-MethodAttributes distribution.

Index

Code Index:

NAME

Top

MooseX::MethodAttributes::Role::Meta::Method - metamethod role allowing code attribute introspection

ATTRIBUTES

Top

attributes

Gets the list of code attributes of the method represented by this meta method.

METHODS

Top

_build_attributes

Builds the value of the attributes attribute based on the attributes captured in the associated meta class.

AUTHORS

Top

COPYRIGHT AND LICENSE

Top

This software is copyright (c) 2011 by Florian Ragwitz.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

MooseX-MethodAttributes documentation Contained in the MooseX-MethodAttributes distribution. 
package MooseX::MethodAttributes::Role::Meta::Method;
BEGIN {
  $MooseX::MethodAttributes::Role::Meta::Method::AUTHORITY = 'cpan:FLORA';
}
BEGIN {
  $MooseX::MethodAttributes::Role::Meta::Method::VERSION = '0.25';
}
# ABSTRACT: metamethod role allowing code attribute introspection

use Moose::Role;

use namespace::clean -except => 'meta';


has attributes => (
    is      => 'ro',
    lazy    => 1,
    builder => '_build_attributes',
);


sub _build_attributes {
    my ($self) = @_;
    return $self->associated_metaclass->get_method_attributes($self->_get_attributed_coderef);
}

sub _get_attributed_coderef {
    my ($self) = @_;
    return $self->body;
}

1;

__END__