@{ $self->{superclasses} };
}
+sub add_method {
+ my $self = shift;
+ my $name = shift;
+ my $code = shift;
+
+ my $pkg = $self->name;
+
+ no strict 'refs';
+ *{ $pkg . '::' . $name } = $code;
+}
+
sub add_attribute {
my $self = shift;
my $attr = shift;
my ($class, $instance, %params) = @_;
(blessed($instance))
- || confess "You can only clone instances, \$self is not a blessed instance";
+ || confess "You can only clone instances, ($instance) is not a blessed instance";
my $clone = bless { %$instance }, ref $instance;
}
+sub make_immutable {}
+sub is_immutable { 0 }
+
+sub attribute_metaclass { "Mouse::Meta::Class" }
1;