MOPfuscation
use mop; use 5.18.1; no strict 'refs'; # use p5-mop-redux ce50586af1d
class APW {
has $!hack = 'Salzburg';
has $!learn = '2. & 3. 11 2013';
has $!socialize = '@ncm.at';
method Austrian ($m) {map{($_=$_->name)=~s;^..;;;$_}$m->attributes}
method Perl ($m) {sort+map{$a=$_->name;eval"$a"}$m->attributes}
method Workshop ($m) {grep{/^[APW]./}sort+map{$_->name}$m->methods}
}
for(mop::meta('APW')){$_->add_method(mop::method->new(name=>$",body
=>sub{map{say+join($",$_[0]->$_($_[1]))}reverse$_[0]->$;($_[1])}));
$;=q^########^^q atLQHPKLSa;$_->FINALIZE->new_instance->$"($_)};