confess "'parameter' may not be used inside of the role block"
if $CURRENT_METACLASS;
- my $meta = Class::MOP::Class->initialize($caller);
+ my $meta = Class::MOP::class_of($caller);
my $names = shift;
$names = [$names] if !ref($names);
sub role (&) {
my $caller = shift;
my $role_generator = shift;
- Class::MOP::Class->initialize($caller)->role_generator($role_generator);
+ Class::MOP::class_of($caller)->role_generator($role_generator);
}
sub init_meta {
sub has {
my $caller = shift;
- my $meta = $CURRENT_METACLASS || Class::MOP::Class->initialize($caller);
+ my $meta = $CURRENT_METACLASS || Class::MOP::class_of($caller);
my $names = shift;
$names = [$names] if !ref($names);
sub method {
my $caller = shift;
- my $meta = $CURRENT_METACLASS || Class::MOP::Class->initialize($caller);
+ my $meta = $CURRENT_METACLASS || Class::MOP::class_of($caller);
my $name = shift;
my $body = shift;
$meta->add_method($name => $method);
}
-sub before {
+sub _add_method_modifier {
+ my $type = shift;
my $caller = shift;
- my $meta = $CURRENT_METACLASS || Class::MOP::Class->initialize($caller);
+ my $meta = $CURRENT_METACLASS || Class::MOP::class_of($caller);
my $code = pop @_;
for (@_) {
Carp::croak "Roles do not currently support "
. ref($_)
- . " references for before method modifiers"
+ . " references for $type method modifiers"
if ref $_;
- $meta->add_before_method_modifier($_, $code);
+
+ my $add_method = "add_${type}_method_modifier";
+ $meta->$add_method($_, $code);
}
}
-sub after {
- my $caller = shift;
- my $meta = $CURRENT_METACLASS || Class::MOP::Class->initialize($caller);
-
- my $code = pop @_;
+sub before {
+ _add_method_modifier('before', @_);
+}
- for (@_) {
- Carp::croak "Roles do not currently support "
- . ref($_)
- . " references for after method modifiers"
- if ref $_;
- $meta->add_after_method_modifier($_, $code);
- }
+sub after {
+ _add_method_modifier('after', @_);
}
sub around {
- my $caller = shift;
- my $meta = $CURRENT_METACLASS || Class::MOP::Class->initialize($caller);
-
- my $code = pop @_;
-
- for (@_) {
- Carp::croak "Roles do not currently support "
- . ref($_)
- . " references for around method modifiers"
- if ref $_;
- $meta->add_around_method_modifier($_, $code);
- }
+ _add_method_modifier('around', @_);
}
sub with {
my $caller = shift;
- my $meta = $CURRENT_METACLASS || Class::MOP::Class->initialize($caller);
+ my $meta = $CURRENT_METACLASS || Class::MOP::class_of($caller);
Moose::Util::apply_all_roles($meta, @_);
}
sub requires {
my $caller = shift;
- my $meta = $CURRENT_METACLASS || Class::MOP::Class->initialize($caller);
+ my $meta = $CURRENT_METACLASS || Class::MOP::class_of($caller);
Carp::croak "Must specify at least one method" unless @_;
$meta->add_required_methods(@_);
sub excludes {
my $caller = shift;
- my $meta = $CURRENT_METACLASS || Class::MOP::Class->initialize($caller);
+ my $meta = $CURRENT_METACLASS || Class::MOP::class_of($caller);
Carp::croak "Must specify at least one role" unless @_;
$meta->add_excluded_roles(@_);
sub override {
my $caller = shift;
- my $meta = $CURRENT_METACLASS || Class::MOP::Class->initialize($caller);
+ my $meta = $CURRENT_METACLASS || Class::MOP::class_of($caller);
my ($name, $code) = @_;
$meta->add_override_method_modifier($name, $code);
=head1 L<MooseX::Role::Parameterized::Tutorial>
B<Stop!> If you're new here, please read
-L<MooseX::Role::Parameterized::Tutorial>.
+L<MooseX::Role::Parameterized::Tutorial> for a much gentler introduction.
=head1 DESCRIPTION
=item L<WWW::Mechanize::TreeBuilder>
+=item L<NetHack::Item::Role::IncorporatesStats>
+
=item L<TAEB::Action::Role::Item>
=item L<KiokuDB::Role::Scan>