PROXY role test

gistfile1.txt

    role ProxyTweak is Proxy {
        method new(:&FETCH!, :&STORE!, *%_) is raw {
            my $self := self.Proxy::new(:&FETCH,:&STORE);
            $self.VAR.TWEAK(|%_);
            $self
        }
    }

    class A does ProxyTweak {
        has $.position;

        method TWEAK(:$!position = 42 --> Nil) { }
    }

    my $a := A.new(
      FETCH => -> $ { 666 },
      STORE => -> $, $ { say "store" },
      position => 17,
    );

    say $a;
    say $a.VAR.^name;
    say $a.VAR.position;