#sub does_metaclass_exist { defined $METAS{$_[0]} }
#sub remove_metaclass_by_name { delete $METAS{$_[0]} }
+sub name;
-
-sub name { $_[0]->{package} }
+sub namespace;
# The followings are Class::MOP specific methods
sub get_attribute_list{ keys %{$_[0]->{attributes}} }
sub remove_attribute { delete $_[0]->{attributes}->{$_[1]} }
-sub namespace{
- my $name = $_[0]->{package};
- no strict 'refs';
- return \%{ $name . '::' };
-}
-
sub add_method {
my($self, $name, $code) = @_;