{"body":" perl6 -e '\n\n\nclass A {\n    has $.xx is rw = 0;\n    has &.method-cb is rw = {          \n        \"default method-cb\".say;\n        .xx = 3; \n    };\n    method do-test () {\n        \"calling method-cb\".say;\n        self.&!method-cb();\n\n        $!xx.perl.say;\n    }\n}\n\nmy $a = A.new;\n\n$a.method-cb =  {            \n    .xx = 5; \n};\n\n$a.do-test;\n\n\n'\ncalling method-cb\n5","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/VJioCxoP","modified":1570457881,"id":"VJioCxoP","size":366,"lines":29,"own_paste":false,"theme":"","date":1570457881}