return $self;
}
-sub create_child_type{
+sub create_child_type {
my $self = shift;
- return ref($self)->new(
- @_,
- # and inherits other attributes from the parent
- parent => $self,
- );
+ return ref($self)->new(@_, parent => $self);
}
sub name;
=head1 VERSION
-This document describes Mouse version 0.71
+This document describes Mouse version 0.72
=head1 DESCRIPTION