diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-06-25 09:39:35 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-06-25 09:39:35 -0500 |
| commit | 944878d349d962e71aac5f0f14b6865939ee231e (patch) | |
| tree | e0d758c82ebd9802801a05c710638e67ea4a48ae /lib/MooseX/NonMoose | |
| parent | 2e7e156d3ecd0aa163aaa52807896221a4bfed80 (diff) | |
| download | moosex-nonmoose-944878d349d962e71aac5f0f14b6865939ee231e.tar.gz moosex-nonmoose-944878d349d962e71aac5f0f14b6865939ee231e.zip | |
don't add custom constructor method if one already exists
Diffstat (limited to 'lib/MooseX/NonMoose')
| -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 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 |