parameter keyword
Shawn M Moore [Sun, 9 Nov 2008 03:02:46 +0000 (03:02 +0000)]
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;