_enw for Method::Constructor

[gitmo/Class-MOP.git] / lib / Class / MOP / Object.pm

diff --git a/lib/Class/MOP/Object.pm b/lib/Class/MOP/Object.pm
index 1b7d2c5..defd47d 100644 (file)
--- a/lib/Class/MOP/Object.pm
+++ b/lib/Class/MOP/Object.pm
@@ -16,6 +16,11 @@ sub meta {
     Class::MOP::Class->initialize(blessed($_[0]) || $_[0]);
 }
 
+sub _new {
+    my ( $class, @args ) = @_;
+    Class::MOP::Class->initialize($class)->new_object(@args);
+}
+
 # RANT:
 # Cmon, how many times have you written 
 # the following code while debugging: