{"body":"$ perl6 -e '\nclass TranslatableStr {my %translations;\n   has Str %.translations;\n   has Str $.default = %!translations.keys == 1 ?? %!translations.keys.head !! \"english\";\n   has Str $.name = %!translations{ $!default } // die \"no default name\";\n\n   method Str { try { %!translations{ $*lang } } // %!translations{ $!default } // $!name }\n   method gist { $.Str }\n   submethod TWEAK(|) { %translations{ $!name } = self }\n   method translate(Str() $str) { %translations{ $str } }\n}\n\nTranslatableStr.new: :translations{:english<chair>, :portuguese<cadeira>}\nmy $*lang = \"portuguese\"; say TranslatableStr.translate: \"chair\"\n'\ncadeira","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/xhBULlDs","modified":1550584672,"id":"xhBULlDs","size":629,"lines":16,"own_paste":false,"theme":"","date":1550584672}