required-methods

[gitmo/Moose.git] / lib / Moose / Role.pm

diff --git a/lib/Moose/Role.pm b/lib/Moose/Role.pm
index 7e143d8..afd0a4c 100644 (file)
--- a/lib/Moose/Role.pm
+++ b/lib/Moose/Role.pm
@@ -48,6 +48,11 @@ sub import {
         $role->meta->apply($meta);
        });     
        
+       # required methods
+       $meta->alias_method('requires' => subname 'Moose::requires' => sub { 
+        $meta->add_required_methods(@_);
+       });     
+       
        # handle attributes
        $meta->alias_method('has' => subname 'Moose::Role::has' => sub { 
                my ($name, %options) = @_;