From a574d052791b7e25720bac16bfd17de3a8495429 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 25 Jun 2009 09:50:03 -0500 Subject: add comment --- lib/MooseX/NonMoose/Meta/Role/Class.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib') 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 -- cgit v1.2.3-54-g00ecf