diff options
| author | Jesse Luehrs <doy@tozt.net> | 2009-06-25 09:50:03 -0500 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2009-06-25 09:50:03 -0500 |
| commit | a574d052791b7e25720bac16bfd17de3a8495429 (patch) | |
| tree | 4a215ba376af31e6fcd09a7efe5f8c5c69d44b30 /lib | |
| parent | 60e65ad7e3819f37042354d1ed2178d9f5f7e313 (diff) | |
| download | moosex-nonmoose-a574d052791b7e25720bac16bfd17de3a8495429.tar.gz moosex-nonmoose-a574d052791b7e25720bac16bfd17de3a8495429.zip | |
add comment
Diffstat (limited to 'lib')
| -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 |