Author: jonathan
Date: Wed Dec 3 16:54:44 2008
New Revision: 33473
Modified:
trunk/languages/perl6/src/classes/Object.pir
Log:
[rakudo] .perl for proto-objects.
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 3 16:54:44 2008
@@ -721,6 +721,17 @@
$P1.'add_method'('Scalar', $P0, 'to'=>self)
.end
+=item perl()
+
+Returns a Perl representation of itself.
+
+=cut
+
+.sub 'perl' :method
+ $S0 = self
+ .return ($S0)
+.end
+
=back
=cut
