{"body":"class A {\n    has $.xx is rw = 0;\n    multi method CALL-ME(\"more\")       { 37 }\n    multi method CALL-ME(\"parameters\") { 8  }\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 + .(\"more\");\n};\n\n$a.do-test;","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/0byn472W","modified":1570460828,"id":"0byn472W","size":399,"lines":23,"own_paste":false,"theme":"","date":1570460828}