__PACKAGE__->setup_import_methods(
with_caller => ['parameter', 'role', 'method'],
- as_is => ['has', 'with', 'extends', 'augment', 'inner'],
+ as_is => ['has', 'with', 'extends', 'requires', 'augment', 'inner'],
);
sub parameter {
Moose::Util::apply_all_roles($CURRENT_METACLASS, @_);
}
+sub requires {
+ confess "requires must be called within the role { ... } block."
+ unless $CURRENT_METACLASS;
+ croak "Must specify at least one method" unless @_;
+ $CURRENT_METACLASS->add_required_methods(@_);
+}
+
sub extends { croak "Roles do not currently support 'extends'" }
sub inner { croak "Roles cannot support 'inner'" }