X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FClass%2FMOP%2FObject.pm;h=689308c37dc1577c725b0302e649d8fe5daf1a0e;hb=3a683b397673ee5ed7788873ff77f0db92eda011;hp=1b7d2c5bc358f3e34b90525bcf38257df1ba5cf6;hpb=2e5c1a3f4fda1d126ef237a3ee3ef13302ead57c;p=gitmo%2FClass-MOP.git diff --git a/lib/Class/MOP/Object.pm b/lib/Class/MOP/Object.pm index 1b7d2c5..689308c 100644 --- a/lib/Class/MOP/Object.pm +++ b/lib/Class/MOP/Object.pm @@ -6,7 +6,8 @@ use warnings; use Scalar::Util 'blessed'; -our $VERSION = '0.65'; +our $VERSION = '0.73'; +$VERSION = eval $VERSION; our $AUTHORITY = 'cpan:STEVAN'; # introspection @@ -16,6 +17,10 @@ sub meta { Class::MOP::Class->initialize(blessed($_[0]) || $_[0]); } +sub _new { + shift->meta->new_object(@_); +} + # RANT: # Cmon, how many times have you written # the following code while debugging: @@ -44,7 +49,7 @@ Class::MOP::Object - Object Meta Object =head1 DESCRIPTION -This class is basically a stub, it provides no functionality at all, +This class is basically a stub, it provides almost no functionality at all, and really just exists to make the Class::MOP metamodel complete. ......