add P5Str to Bool

rakudo-p5 · May 21, 2013 · 01aa6d2 · 01aa6d2
1 parent 19ecc83
commit 01aa6d2
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/lib/Perl5/Terms.pm b/lib/Perl5/Terms.pm
@@ -105,6 +105,11 @@ augment class Any {
     }
 }
 
+augment class Bool {
+    multi method P5Str(Bool:U:) { '' }
+    multi method P5Str(Bool:D:) { ?self ?? 1 !! '' }
+}
+
 augment class Array {
     multi method P5Str(Array:U:) { '' }
     multi method P5Str(Array:D:) { join '', map { $_ ?? $_.P5Str !! '' }, @(self) }