Add built local::lib

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

diff --git a/local-lib5/lib/perl5/MooseX/Declare/Syntax/MethodDeclaration/Parameterized.pm b/local-lib5/lib/perl5/MooseX/Declare/Syntax/MethodDeclaration/Parameterized.pm
new file mode 100644 (file)
index 0000000..17905f6
--- /dev/null
+++ b/local-lib5/lib/perl5/MooseX/Declare/Syntax/MethodDeclaration/Parameterized.pm
@@ -0,0 +1,17 @@
+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;