parameter keyword
[gitmo/MooseX-Role-Parameterized.git] / lib / MooseX / Role / Parameterized.pm
index 8c16ba8..2bc271f 100644 (file)
@@ -7,7 +7,14 @@ use MooseX::Role::Parameterized::Meta::Role;
 use Moose::Role ();
 use Moose::Exporter;
 
-Moose::Exporter->setup_import_methods;
+Moose::Exporter->setup_import_methods(
+    with_caller => ['parameter'],
+);
+
+sub parameter {
+    my $caller = shift;
+    $caller->meta->add_parameter(@_);
+}
 
 sub init_meta {
     my $self = shift;