Select Code to Download

use warnings;
use strict;

...
        print $caller, $/;
    }
}

{
    package Moose::Object;
    use warnings;
...
    (my $params = $real_class->BUILDARGS(@_));
    return('Class::MOP::Class'->initialize($real_class)->new_object($p
+arams));
}