# Pastebin aT82QkxL + 6 method COMPOSE { + 7 for ::?CLASS!attr-columns -> $attr { + 8 my $attr-name = $attr.name.substr(2); + 9 with ::?CLASS.^find_method($attr-name) { + 10 .wrap: method () is rw { + 11 Proxy.new: + 12 FETCH => method (|) {say "FETCH" ; nextsame}, + 13 STORE => method (|) {say "STORE" ; $attr.is-dirty = True; nextsame} + 14 } + 15 } + 16 } + 17 }