inline_constructor => 1,
inline_destructor => 0,
debug => 0,
- immutable_trait => $self->immutable_trait,
- constructor_name => $self->constructor_name,
- constructor_class => $self->constructor_class,
- destructor_class => $self->destructor_class,
+ immutable_trait => $self->immutable_trait,
+ constructor_name => $self->constructor_name,
+ constructor_class => $self->constructor_class,
+ destructor_class => $self->destructor_class,
@args,
);
}
sub immutable_options { %{ $_[0]{__immutable}{options} } }
-sub is_mutable { 0 }
+sub is_mutable { 0 }
sub is_immutable { 1 }
sub superclasses {
sub get_all_attributes { @{ $_[0]{__immutable}{get_all_attributes} ||= [ shift->next::method ] } }
sub get_meta_instance { $_[0]{__immutable}{get_meta_instance} ||= shift->next::method }
-sub get_method_map { $_[0]{__immutable}{get_method_map} ||= shift->next::method }
+sub get_method_map { $_[0]{__immutable}{get_method_map} ||= shift->next::method }
sub add_package_symbol {
confess "Cannot add package symbols to an immutable metaclass"