DeclaratorProxy.rakumod

use nqp;

class Metamodel::ProxyHOW is Metamodel::ClassHOW {
    method compose(Mu $type-obj is raw) {
        say ‚composing a Metamodel::ProxyHOW‘;

        my %m = $type-obj.^methods.map({ slip .name, $_ });

        # $type-obj.^add_method('new', sub ($type) {
        #     nqp::create(nqp::decont($type));
        # });

        $type-obj.^set_container_spec(nqp::hash('fetch', %m<FETCH>, 'store', %m<STORE>));
        self.Metamodel::ClassHOW::compose($type-obj, |%_);
        self.Metamodel::ClassHOW::compose_repr($type-obj);

        $type-obj
    }
}

package EXPORTHOW {
    package DECLARE {
        constant proxy = Metamodel::ProxyHOW;
    }
}

proxy-moxy.raku

use DeclaratorProxy;

proxy Proxy {
    has $.a-var;
    method FETCH() { $.a-var }
    method STORE(\v) { $.a-var = v }
}

proxy Q is Proxy {

}

Q.new;

OUTPUT:

composing a Metamodel::ProxyHOW
composing a Metamodel::ProxyHOW
Cannot invoke object with invocation handler in this context
in block at /home/dex/projects/raku/proxy-moxy.raku line 13