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;
=head1 VERSION
-This document describes Mouse version 0.37_06
+This document describes Mouse version 0.39
=head1 METHODS