use Carp 'confess';
use Scalar::Util 'blessed', 'weaken';
-our $VERSION = '0.88';
+our $VERSION = '0.92';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
sub add_attribute { _immutable_cannot_call() }
sub remove_attribute { _immutable_cannot_call() }
sub remove_package_symbol { _immutable_cannot_call() }
+sub add_package_symbol { _immutable_cannot_call() }
sub class_precedence_list {
my $orig = shift;
$self->{__immutable}{get_method_map} ||= $self->$orig;
}
-sub add_package_symbol {
- my $orig = shift;
- my $self = shift;
- confess "Cannot add package symbols to an immutable metaclass"
- unless ( caller(3) )[3] eq 'Class::MOP::Package::get_package_symbol';
-
- $self->$orig(@_);
-}
-
1;
__END__