MOPfuscation
# works with p5-mop-redux ce50586a
use mop;use 5.18.1;no strict 'refs';
class APW{method Austrian($m){map{($_=
$_->name)=~s; ^..;;x;$_}$m->
attributes}; has $!hack =
'Salzburg '; has $!learn=
'2. & 3.11.' .' 2013';has
$!socialize= q $@ncm.at$;
method Perl( $m){sort+map
{$a=$_->name ;eval"$a"}$m
->attributes} ;42.;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])}));42;$;=
q^########^^q
atLQHPKLSa;$_
->FINALIZE ->
new_instance#
->$"($_)};###