From 9efead678a73291fba2614d6cc2ccabf4c73473d Mon Sep 17 00:00:00 2001
From: Solomon Foster <colomon@gmail.com>
Date: Mon, 1 Mar 2010 09:27:53 -0500
Subject: [PATCH] Add Bool.perl.

---
 src/core/Bool.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/core/Bool.pm b/src/core/Bool.pm
index 0a6d334f561..a0765963831 100644
--- 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"; }
 }