implement method Bool in Hash

rakudo · Mar 8, 2010 · bd7c6f5 · bd7c6f5
1 parent 393fcd4
commit bd7c6f5
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/Hash.pm b/src/core/Hash.pm
@@ -52,6 +52,10 @@ role Hash is EnumMap {
         self
     }
 
+    method Bool() {
+        ?pir::istrue__IP(pir::getattribute__PPs(self, '$!storage'));
+    }
+
     method delete(*@keys) {
         my @deleted;
         for @keys -> $k {