__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'" }
--- /dev/null
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More tests => 5;
+use Test::Exception;
+
+do {
+ package MyRole::Requires;
+ use MooseX::Role::Parameterized;
+
+ parameter requires => (
+ is => 'rw',
+ isa => 'Str',
+ );
+
+ role {
+ my $p = shift;
+ requires $p->requires;
+ };
+};
+
+sub requires_names {
+ map {
+ MyRole::Requires->meta->generate_role(requires => $_)->name
+ } @_
+}
+
+throws_ok {
+ Moose::Meta::Class->create_anon_class(
+ roles => [ requires_names('alpha') ],
+ );
+} qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'alpha' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/;
+
+lives_ok {
+ Moose::Meta::Class->create_anon_class(
+ methods => {
+ alpha => sub {},
+ },
+ roles => [ requires_names('alpha') ],
+ );
+};
+
+throws_ok {
+ Moose::Meta::Class->create_anon_class(
+ methods => {
+ alpha => sub {},
+ },
+ roles => [ requires_names('alpha', 'beta') ],
+ );
+} qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+\|Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'beta' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/;
+
+throws_ok {
+ Moose::Meta::Class->create_anon_class(
+ methods => {
+ beta => sub {},
+ },
+ roles => [ requires_names('alpha', 'beta') ],
+ );
+} qr/'Moose::Meta::Role::__ANON__::SERIAL::\d+\|Moose::Meta::Role::__ANON__::SERIAL::\d+' requires the method 'alpha' to be implemented by 'Class::MOP::Class::__ANON__::SERIAL::\d+'/;
+
+lives_ok {
+ Moose::Meta::Class->create_anon_class(
+ methods => {
+ alpha => sub {},
+ beta => sub {},
+ },
+ roles => [ requires_names('alpha', 'beta') ],
+ );
+};
+