Perl 6 Port
class APW { has $!hack = 'Salzburg'; has $!learn = '2. & 3. 11 2013'; has $!socialize = '@ncm.at'; method Austrian { self.^attributes.map({ .name.substr(2) }) } method Perl { self.^attributes.map({ .name.eval }) } method Workshop { self.^methods.grep({ .name ~~ /^<[APW]>/ }).sort } } APW.^add_method(" ",method {my $s=q~########~~^q^tLQHPKLS^;say self."$s"().reverse.map({ self."$_"().join(" ") }).join("\n"); });APW.^compose.new." "();