gistfile1.txt

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