gistfile1.txt

        <uri proto host port path qs fragment>.map(-> $meth {
                $?CLASS.^find_method($meth).wrap(my method () is rw {
                        my $ret = callsame;
                        Proxy.new:
                                STORE => method ($val) {$!changed = True; $ret},
                                FETCH => method () {$ret}
                })      
        });