@x and %x do not need is rw in signatures

Author: H.Merijn Brand - Tux

NLPW-2015/090-hooks.txt

@@ -29,10 +29,10 @@ is ($s, "bar",                          "value");
 perl6
 
 sub Empty (Text::CSV $c, CSV::Field @f) {}
-sub Drop  (Text::CSV $c, CSV::Field @f is rw) { @f.pop; }
-sub Push  (Text::CSV $c, CSV::Field @f is rw) { @f.push (CSV::Field.new); }
-sub Replc (Text::CSV $c, CSV::Field @f is rw) { @f[1] =  CSV::Field.new; }
-sub Unshf (Text::CSV $c, CSV::Field @f is rw) { @f.unshift (CSV::Field.new ("0")); }
+sub Drop  (Text::CSV $c, CSV::Field @f) { @f.pop; }
+sub Push  (Text::CSV $c, CSV::Field @f) { @f.push (CSV::Field.new); }
+sub Replc (Text::CSV $c, CSV::Field @f) { @f[1] =  CSV::Field.new; }
+sub Unshf (Text::CSV $c, CSV::Field @f) { @f.unshift (CSV::Field.new ("0")); }
 
 ok ($csv.meta (True), "Set meta again");
 is_deeply ([$csv.getline ("1,2").map (~*)], ["1","2"],     "Parse no cb");

t/91_csv_cb.t

@@ -51,7 +51,7 @@ is-deeply (csv (in => $file, after_in => &Push), [
     [  2,  "a b", "", "A" ],
     ], "AOA ith after_in callback");
 
-sub Change (Text::CSV $c, CSV::Field %f is rw) { %f<baz> = "A"; }
+sub Change (Text::CSV $c, CSV::Field %f) { %f<baz> = "A"; }
 
 is-deeply (csv (in => $file, headers => "auto", after_in => &Change), [
     { foo => 1, bar => 2, baz => "A" },