Give Set/Bag/Mix single arg semantics, nine++

rakudo · Aug 28, 2015 · 0b76e79 · 0b76e79
1 parent 901d7c4
commit 0b76e79
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/src/core/Baggy.pm b/src/core/Baggy.pm
@@ -18,7 +18,13 @@ my role Baggy does QuantHash {
 
     method hash(Baggy:D: --> Hash) { %!elems.values.hash }
 
-    method new(*@args --> Baggy) {
+    multi method new(Baggy: \value) {
+      nqp::iscont(value) || nqp::not_i(nqp::istype(value, Iterable))
+        ?? self!new([value]) 
+        !! self!new([|value])
+    }
+    multi method new(Baggy: **@args) { self!new(@args) }
+    method !new(@args) {
         my %e;
         # need explicit signature because of #119609
         -> $_ { (%e{$_.WHICH} //= ($_ => 0)).value++ } for @args;

diff --git a/src/core/Setty.pm b/src/core/Setty.pm
@@ -20,7 +20,13 @@ my role Setty does QuantHash {
         %e;
     }
 
-    method new(*@args --> Setty) {
+    multi method new(Setty: \value) {
+      nqp::iscont(value) || nqp::not_i(nqp::istype(value, Iterable))
+        ?? self!new([value])
+        !! self!new([|value])
+    }
+    multi method new(Setty: **@args) { self!new(@args) }
+    method !new(@args) {
         my %e;
         %e{$_.WHICH} = $_ for @args;
         self.bless(:elems(%e))