diff options
-rw-r--r-- | lib/MooseX/NonMoose/Meta/Role/Class.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/MooseX/NonMoose/Meta/Role/Class.pm b/lib/MooseX/NonMoose/Meta/Role/Class.pm index 4e0d4e5..a17892c 100644 --- a/lib/MooseX/NonMoose/Meta/Role/Class.pm +++ b/lib/MooseX/NonMoose/Meta/Role/Class.pm @@ -89,6 +89,8 @@ around superclasses => sub { my @ret = $self->$orig(@superclasses); + # if the current class defined a custom new method (since subs happen at + # BEGIN time), don't try to override it return if $self->has_method('new'); # we need to get the non-moose constructor from the superclass |