Thursday, April 19, 2012

The Price of Cleverness (YAML is not Safe) | Ovid [blogs.perl.org]

The Price of Cleverness (YAML is not Safe) | Ovid [blogs.perl.org]: "# Why do people think this stuff is clever?
no warnings;my$M=__PACKAGE__.::;*{$M.Object::new}=sub{bless{@_[1..$#_]},$_[0]};
*{$M.import}=sub{import warnings;$^H|=1538;my($P,%e,%o)=caller.::;shift;
eval"no Mo::$_",&{$M.$_.::e}($P,\%e,\%o,\@_)for@_;return if$e{M};"

'via Blog this'