Author: jonathan
Date: Tue May 6 06:47:30 2008
New Revision: 27344
Modified:
trunk/languages/perl6/src/classes/Int.pir
trunk/languages/perl6/src/classes/Num.pir
trunk/languages/perl6/src/classes/Str.pir
Log:
[rakudo] .perl methods for Num, Int and Str.
Modified: trunk/languages/perl6/src/classes/Int.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Int.pir (original)
+++ trunk/languages/perl6/src/classes/Int.pir Tue May 6 06:47:30 2008
@@ -34,6 +34,18 @@
.end
+=item perl()
+
+Returns a Perl representation of the Int.
+
+=cut
+
+.sub 'perl' :method
+ $S0 = self
+ .return($S0)
+.end
+
+
# Local Variables:
# mode: pir
# fill-column: 100
Modified: trunk/languages/perl6/src/classes/Num.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Num.pir (original)
+++ trunk/languages/perl6/src/classes/Num.pir Tue May 6 06:47:30 2008
@@ -25,6 +25,18 @@
.end
+=item perl()
+
+Returns a Perl representation of the Num.
+
+=cut
+
+.sub 'perl' :method
+ $S0 = self
+ .return($S0)
+.end
+
+
# Local Variables:
# mode: pir
# fill-column: 100
Modified: trunk/languages/perl6/src/classes/Str.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Str.pir (original)
+++ trunk/languages/perl6/src/classes/Str.pir Tue May 6 06:47:30 2008
@@ -211,6 +211,22 @@
.return(retv)
.end
+
+=item perl()
+
+Returns a Perl representation of the Str.
+
+=cut
+
+.sub 'perl' :method
+ $S0 = "\""
+ $S1 = self
+ $S1 = escape $S1
+ concat $S0, $S1
+ concat $S0, "\""
+ .return ($S0)
+.end
+
=back
=head1 Functions
