Changeset 11225

Timestamp:

05/07/08 01:35:22 (5 years ago)

Author:

yappo

Message:

add requires_with_attributes method on moosenize

Files:

• lang/perl/Class-Component/trunk/lib/Class/Component/Component/Moosenize.pm (modified) (2 diffs)

lang/perl/Class-Component/trunk/lib/Class/Component/Component/Moosenize.pm

@@ -34 +34 @@
     my $pkg = shift;
 
-    for my $method (qw/ requires with /) {
+    for my $method (qw/ requires requires_with_attributes with /) {
         no strict 'refs';
         *{"$pkg\::$method"} = sub { unshift @_, $pkg; goto &$method };
@@ -171 +171 @@
     }
 }
+sub requires_with_attributes {
+    my $caller     = shift;
+    my $attributes = shift;
+    requires($caller => map { $_ => $attributes } @_ );
+}
 
 sub with {