Raku `.clone` note

custom-clone.p6

class Tweaked {
  has $.a;
  has $.b;
  has $.mod;
  
  submethod TWEAK() {
      $!mod = "Modified : " ~ $!mod
  }
  method clone() {
    my $mod = %_<mod>:delete;
    nextwith :mod( "Modified : " ~ $mod  ) , |%_;
  }
}

Tweaked.new(:a(1),:b(2),:mod("So ?")).raku.put;

# OUTPUT : Tweaked.new(a => 1, b => 2, mod => "Modified : So ?")

Tweaked.new(:a(1),:b(2),:mod("So ?")).clone(:mod("ALSO THIS")).raku.put;

# OUTPUT : Tweaked.new(a => 1, b => 2, mod => "Modified : ALSO THIS")

normal.p6

class Tweaked {
  has $.a;
  has $.b;
  has $.mod;
  
  submethod TWEAK() {
      $!mod = "Modified : " ~ $!mod
  }
}

Tweaked.new(:a(1),:b(2),:mod("So ?")).raku.put;

# OUTPUT : Tweaked.new(a => 1, b => 2, mod => "Modified : So ?")

Tweaked.new(:a(1),:b(2),:mod("So ?")).clone(:mod("NOT THIS")).raku.put;

# OUTPUT : Tweaked.new(a => 1, b => 2, mod => "NOT THIS")