Remove the & prototype hack now Moose::Exporter doesn't throw prototypes away anymore.
Florian Ragwitz [Fri, 10 Apr 2009 17:37:18 +0000 (19:37 +0200)]
dist.ini
lib/MooseX/Role/Parameterized.pm

index 73c0132..038ed76 100644 (file)
--- a/dist.ini
+++ b/dist.ini
@@ -7,6 +7,6 @@ copyright_holder = Infinity Interactive
 [@Classic]
 
 [Prereq]
-Moose = 0.64
+Moose = 0.73
 Test::Exception = 0.27
 
index 52f7d05..ed28f9f 100644 (file)
@@ -35,7 +35,7 @@ sub parameter {
     }
 }
 
-sub role {
+sub role (&) {
     my $caller         = shift;
     my $role_generator = shift;
     Class::MOP::Class->initialize($caller)->role_generator($role_generator);
@@ -49,18 +49,6 @@ sub init_meta {
     );
 }
 
-# give role a (&) prototype
-moose_around _make_wrapper => sub {
-    my $orig = shift;
-    my ($self, $caller, $sub, $fq_name) = @_;
-
-    if ($fq_name =~ /::role$/) {
-        return sub (&) { $sub->($caller, @_) };
-    }
-
-    return $orig->(@_);
-};
-
 sub has {
     my $caller = shift;
     my $meta   = $CURRENT_METACLASS || Class::MOP::Class->initialize($caller);