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;
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 >>