Author: pmichaud
Date: Tue May 6 08:53:12 2008
New Revision: 27345
Modified:
trunk/languages/perl6/src/classes/Object.pir
Log:
[rakudo]:
* Add a .print method to Object to (hopefully) help out
evalbot on #perl6.
Modified: trunk/languages/perl6/src/classes/Object.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Object.pir (original)
+++ trunk/languages/perl6/src/classes/Object.pir Tue May 6 08:53:12 2008
@@ -469,12 +469,19 @@
.return 'prefix:?'(self)
.end
+=item print()
+
=item say()
Print the object
=cut
+.sub 'print' :method
+ $P0 = get_hll_global 'print'
+ .return $P0(self)
+.end
+
.sub 'say' :method
$P0 = get_hll_global 'say'
.return $P0(self)
