http://www.perlmonks.org?node_id=1005152


in reply to Re^2: Is this really random?
in thread Is this really random?

Also don't forget &foo() which overrides prototypes without the effect of passing along the caller's @_.

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'