return $self->create(undef, @_);
}
-sub is_anon_class{
- return exists $_[0]->{anon_serial_id};
-}
+sub is_anon_class;
+
+sub roles;
-sub roles { $_[0]->{roles} }
+sub calculate_all_roles {
+ my $self = shift;
+ my %seen;
+ return grep { !$seen{ $_->name }++ }
+ map { $_->calculate_all_roles } @{ $self->roles };
+}
sub superclasses {
my $self = shift;
return @attr;
}
-sub linearized_isa { @{ get_linear_isa($_[0]->name) } }
+sub linearized_isa;
sub new_object {
my $self = shift;
Mouse::Meta::Class - The Mouse class metaclass
+=head1 VERSION
+
+This document describes Mouse version 0.40
+
=head1 METHODS
=head2 C<< initialize(ClassName) -> Mouse::Meta::Class >>