sub get_roles { $_[0]->{roles} }
+sub calculate_all_roles {
+ my $self = shift;
+ my %seen;
+ return grep { !$seen{ $_->name }++ }
+ ($self, map { $_->calculate_all_roles } @{ $self->get_roles });
+}
+
sub get_required_method_list{
return @{ $_[0]->{required_methods} };
}
=head1 VERSION
-This document describes Mouse version 0.38
+This document describes Mouse version 0.40
=head1 SEE ALSO