{"body":"perl6 -e '\n\n\nclass Animalia                    {\n  method full-name {\n    ::?CLASS.^name\n  }\n}\nclass Arthropodia is Animalia     {\n  method full-name {\n    callsame() ~ \", \" ~ ::?CLASS.^name\n  }\n}\nclass Insecta is Arthropodia      {\n  method full-name {\n    callsame() ~ \", \" ~ ::?CLASS.^name\n  }\n}\nclass Lepidoptera is Insecta      {\n  method full-name {\n    callsame() ~ \", \" ~ ::?CLASS.^name\n  }\n}\nclass Nymphalidae is Lepidoptera  {\n  method full-name {\n    callsame() ~ \", \" ~ ::?CLASS.^name\n  }\n}\nclass Hamadryas is Nymphalidae    {\n  method full-name {\n    put \"{::?CLASS.^name} is {callsame}\"\n  }\n}\n\nmy $h = Hamadryas.new;\n$h.full-name;\n\n\n'\nHamadryas is Animalia, Arthropodia, Insecta, Lepidoptera, Nymphalidae","name":"","extension":"txt","url":"https://www.irccloud.com/pastebin/77MLf0H5","modified":1571397931,"id":"77MLf0H5","size":718,"lines":40,"own_paste":false,"theme":"","date":1571397931}