Make Bag.WHICH on demand and remove old cruft

rakudo · May 16, 2014 · b700214 · b700214
1 parent 2e49610
commit b700214
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/src/core/Bag.pm b/src/core/Bag.pm
@@ -4,14 +4,12 @@ my class Bag does Baggy {
 
     method total (--> Int) { $!total //= [+] self.values }
 
-    submethod WHICH { $!WHICH }
-    submethod BUILD (:%elems)  {
-        my @keys := %elems.keys.sort;
-        $!WHICH  := self.^name
+    submethod WHICH {
+        $!WHICH //= self.^name
           ~ '|'
-          ~ @keys.map( { $_ ~ '(' ~ %elems{$_}.value ~ ')' } );
-        nqp::bindattr(self, Bag, '%!elems', %elems);
+          ~ %!elems.keys.sort.map( { $_ ~ '(' ~ %!elems{$_}.value ~ ')' } );
     }
+    submethod BUILD (:%!elems)  { }
 
     method at_key($k --> Int) {
         my $key := $k.WHICH;