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

  DB<171> x [$self,$mysub,$myargs]
0  ARRAY(0x3c46108)
   0  'bla'
   1  'test'
   2  '$a,$b'
  DB<172>  &$self->$mysub ( eval $myargs )
[bless({}, "TEMP"), 42, 666]

  DB<173> cryptic( 'bla' , 'test', '$a,$b' )
[bless({}, "TEMP"), 42, 666]

  DB<174>