Make Parcel.new('a') work as specced

rakudo · Oct 2, 2014 · 9814e86 · 9814e86
1 parent 230233b
commit 9814e86
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/core/Parcel.pm b/src/core/Parcel.pm
@@ -3,7 +3,11 @@ my class Parcel does Positional { # declared in BOOTSTRAP
     #    has Mu $!storage;        # VM's array of Parcel's elements
     #    has Str $!WHICH;
 
-    submethod BUILD() { $!storage := nqp::list() }
+    multi method new(|) {
+        my Mu $args := nqp::p6argvmarray();
+        nqp::shift($args);
+        nqp::p6parcel($args, Nil)
+    }
 
     multi method Bool(Parcel:D:)           { nqp::p6bool($!storage) }
     multi method Numeric(Parcel:D:)        { nqp::elems($!storage) }