From 944878d349d962e71aac5f0f14b6865939ee231e Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Thu, 25 Jun 2009 09:39:35 -0500 Subject: don't add custom constructor method if one already exists --- lib/MooseX/NonMoose/Meta/Role/Class.pm | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib/MooseX/NonMoose') diff --git a/lib/MooseX/NonMoose/Meta/Role/Class.pm b/lib/MooseX/NonMoose/Meta/Role/Class.pm index 0ccc5b9..4e0d4e5 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); + return if $self->has_method('new'); + # we need to get the non-moose constructor from the superclass # of the class where this method actually exists, regardless of what class # we're calling it on -- cgit v1.2.3-54-g00ecf