use Carp 'confess';
use Devel::GlobalDestruction 'in_global_destruction';
-our $VERSION = '0.95';
+our $VERSION = '1.03';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
my $class = ref $_[0];
Moose->throw_error( "Cannot add a $class as an attribute to a role" );
}
+ elsif (!blessed($_[0]) && $_[0] =~ /^\+(.*)/) {
+ Moose->throw_error( "has '+attr' is not supported in roles" );
+ }
return $self->SUPER::add_attribute(@_);
}
## ------------------------------------------------------------------
sub apply {
- my ($self, $other, @args) = @_;
+ my ($self, $other, %args) = @_;
(blessed($other))
|| Moose->throw_error("You must pass in an blessed instance");
}
Class::MOP::load_class($application_class);
- return $application_class->new(@args)->apply($self, $other);
+ return $application_class->new(%args)->apply($self, $other, \%args);
}
sub composition_class_roles { }
=head2 Method modifiers
-These methods act like their counterparts in L<Class::Mop::Class> and
+These methods act like their counterparts in L<Class::MOP::Class> and
L<Moose::Meta::Class>.
However, method modifiers are simply stored internally, and are not