rw-invocant.p6

#!perl6
use v6.c;

class Thing {
    method blah($val=1) { 15+$val }
}

class Thunk {
    has $.maker;

    method FALLBACK(Any:D $invocant is rw: $name, |c) {
        my $thing = $invocant.maker.();
        $invocant = $thing;
        $invocant."$name"(|c);
    }
}

my $t = Thunk.new(:maker({ Thing.new() }));

say $t.perl;
say $t.blah(15);
say $t.perl;