Author: jonathan Date: Wed Dec 17 06:36:31 2008 New Revision: 34026 Modified: trunk/languages/perl6/src/classes/Object.pir
Log: [rakudo] First cut of the clone method (argumentless version). Modified: trunk/languages/perl6/src/classes/Object.pir ============================================================================== --- trunk/languages/perl6/src/classes/Object.pir (original) +++ trunk/languages/perl6/src/classes/Object.pir Wed Dec 17 06:36:31 2008 @@ -28,6 +28,23 @@ =over 4 +=item clone() + +Returns a copy of the object. + +=cut + +.namespace ['Perl6Object'] +.sub 'clone' :method + $I0 = isa self, 'ObjectRef' + unless $I0 goto do_clone + self = deref self + do_clone: + $P0 = clone self + .return ($P0) +.end + + =item defined() Return true if the object is defined.
