{"body":"MacBook-Pro-de-Fernando:roles fernando$ cat Foo.pm6 \nmulti trait_mod:<is>(Routine $r, :&command!) is export {\n    $r.wrap: my method (|) {\n        my \\rest = callwith self;\n        if ?rest {\n            self.save: command rest\n        }\n        rest\n    }\n}\n\nrole Foo {\n    method save (|) { }\n}\nMacBook-Pro-de-Fernando:roles fernando$ cat z1.p6 \nclass Bar does Foo {\n    method foo is command{.uc.flip.say} {\n        'meow'\n    }\n}\nBar.foo: 42\nMacBook-Pro-de-Fernando:roles fernando$ perl6 -I. -MFoo z1.p6\nWOEM\nMacBook-Pro-de-Fernando:roles fernando$ cat z2.p6 \nuse Bar;\nBar.foo: 42\nMacBook-Pro-de-Fernando:roles fernando$ cat Bar.pm6 \nuse Foo;\nclass Bar does Foo {\n    method foo is command{.uc.flip.say} {\n        'meow'\n    }\n}\nMacBook-Pro-de-Fernando:roles fernando$ perl6 -I. -MFoo z2.p6\nCannot invoke this object (REPR: Null; VMNull)\n  in method <anon> at /Users/fernando/Tests/roles/Foo.pm6 (Foo) line 3\n  in block <unit> at z2.p6 line 2","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/rJL2Gsbu","modified":1531626719,"id":"rJL2Gsbu","size":946,"lines":37,"own_paste":false,"theme":"","date":1531626719}