Add Bool.perl.

rakudo · Mar 1, 2010 · 9efead6 · 9efead6
1 parent 1bd66da
commit 9efead6
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/Bool.pm b/src/core/Bool.pm
@@ -1,4 +1,6 @@
 augment class Bool {
     method Bool { self }
     method ACCEPTS($topic) { self }
+
+    method perl() { self ?? "Bool::True" !! "Bool::False"; }
 }