Proxy

proxy

#!perl6

use v6;

class Foo {
   has $!foo_str;

   method foo is rw {
      Proxy.new(
                     FETCH =>  {
                        say "fetch";
                        $!foo_str;
                     },
                     STORE => -> $, $foo  {
                        say "store";
                        $!foo_str = $foo;
                     },
                   );
   }
}

my $foo = Foo.new;

$foo.foo = "bar";


say $foo.foo;


$foo.foo = 'baz';

say $foo.foo;