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


in reply to Re^2: Cancel/no-op a require
in thread Cancel/no-op a require

Also the innards of the function are kinda odd. You need to assign lines to $_ rather than returning them. I can understand why they did it that way, but it's pretty strange.

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