sub _reconcile_with_superclass_meta {
my($self, $super_meta) = @_;
+ # find incompatible traits
my @incompatibles;
-
foreach my $metaclass_type(@MetaClassTypes){
my $super_c = $super_meta->$metaclass_type();
my $self_c = $self->$metaclass_type();
}
my @roles;
-
- foreach my $role($self->meta->calculate_all_roles){
- if(!$super_meta->meta->does_role($role->name)){
+ foreach my $role($super_meta->meta->calculate_all_roles){
+ if(!$self->meta->does_role($role->name)){
push @roles, $role->name;
}
}
$self->{is_immutable}++;
+ $self->{strict_constructor} = $args{strict_constructor};
+
if ($args{inline_constructor}) {
my $c = $self->constructor_class;
Mouse::Util::load_class($c);
=head1 VERSION
-This document describes Mouse version 0.49
+This document describes Mouse version 0.50_01
=head1 METHODS