We need to say new -> _new? what's the better way of doing this?

diff --git a/lib/Moose/Meta/Role/Method/Required.pm b/lib/Moose/Meta/Role/Method/Required.pm
index 70e2186..f1680ba 100644 (file)
--- a/lib/Moose/Meta/Role/Method/Required.pm
+++ b/lib/Moose/Meta/Role/Method/Required.pm
@@ -19,6 +19,8 @@ our $AUTHORITY = 'cpan:STEVAN';
 
 __PACKAGE__->meta->add_attribute('name' => (reader => 'name'));
 
+sub new { shift->_new(@_) }
+
 1;
 
 __END__