Help for this page

Select Code to Download

Select or download this

  DB<170> sub cryptic { my ($func,$meth,$args) = @_ ; $func->()->$meth
+(eval $args) }

...
[bless({}, "TEMP"), 42, 666]

  DB<174>