{ package Moose::Object; use warnings; use strict 'refs'; (my $class = shift(@_)); (my $real_class = (&Scalar::Util::blessed($class) || $class)); (my $params = $real_class->BUILDARGS(@_)); return('Class::MOP::Class'->initialize($real_class)->new_object($params)); }