[perl #55860] [PATCH] Bool.perl(), Range.perl()

[Olivier Mengué]

# New Ticket Created by  "Olivier Mengué" 
# Please include the string:  [perl #55860]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=55860 >


Here a patch that implements 'perl' methods on Bool and Range objects.

Olivier Mengué (dolmen on CPAN/IRC)

Index: src/classes/Bool.pir
===================================================================
--- src/classes/Bool.pir	(révision 28379)
+++ src/classes/Bool.pir	(copie de travail)
@@ -53,6 +53,20 @@
 .end
 
 
+=item perl()
+
+Returns a Perl representation of the Bool.
+
+=cut
+
+.sub 'perl' :method
+    unless self goto false
+    .return ("Bool::True")
+  false:
+    .return ("Bool::False")
+.end
+
+
 # Local Variables:
 #   mode: pir
 #   fill-column: 100
Index: src/classes/Range.pir
===================================================================
--- src/classes/Range.pir	(révision 28379)
+++ src/classes/Range.pir	(copie de travail)
@@ -148,6 +148,35 @@
     .return ($I0)
 .end
 
+
+=item perl()
+
+Returns a Perl representation of the Range.
+
+=cut
+
+.sub 'perl' :method
+    .local string result, tmp
+    .local pmc from, fromexc, toexc, to
+    from = getattribute self, '$!from'
+    fromexc = getattribute self, '$!from_exclusive'
+    toexc = getattribute self, '$!to_exclusive'
+    to = getattribute self, '$!to'
+    result = from.'perl'()
+    unless fromexc goto dots
+    result .= '^'
+  dots:
+    result .= '..'
+    unless toexc goto end
+    result .= '^'
+  end:
+    tmp = to.'perl'()
+    result .= tmp
+    .return (result)
+.end
+
+
+
 =back
 
 =head2 Operators