[catagits/Gitalist.git] / local-lib5 / lib / perl5 / MooseX / Declare / Syntax / MethodDeclaration / Parameterized.pm

package MooseX::Declare::Syntax::MethodDeclaration::Parameterized;

use Moose::Role;
use MooseX::Role::Parameterized ();
use namespace::autoclean;

around register_method_declaration => sub {
    my ($next, $self, $parameterizable_meta, $name, $method) = @_;
    my $meta = $self->metaclass_for_method_application($parameterizable_meta, $name, $method);
    $self->$next($meta, $name, $method);
};

sub metaclass_for_method_application {
    return MooseX::Role::Parameterized->current_metaclass;
}

1;
Commit	Line	Data
3fea05b9	1	package MooseX::Declare::Syntax::MethodDeclaration::Parameterized;
	2
	3	use Moose::Role;
	4	use MooseX::Role::Parameterized ();
	5	use namespace::autoclean;
	6
	7	around register_method_declaration => sub {
	8	my ($next, $self, $parameterizable_meta, $name, $method) = @_;
	9	my $meta = $self->metaclass_for_method_application($parameterizable_meta, $name, $method);
	10	$self->$next($meta, $name, $method);
	11	};
	12
	13	sub metaclass_for_method_application {
	14	return MooseX::Role::Parameterized->current_metaclass;
	15	}
	16
	17	1;