use Perl

• wild (Score:1)

  by dagolden (6584)

  That sounds wild and cool -- but please give some thought along the way to how it will play with things that already fiddle with caller (e.g. Sub::Uplevel, Hook::LexWrap, Contextual::Return)
  
  -- dagolden
  • Re: (Score:1)

    by jjore (6662)

    I dunno, in an ideal world Sub::Uplevel wouldn't exist. I'm not sure there's a part of the stack that shouldn't be visible at all times including control structures like loops.
    
    Right now caller() doesn't show loops but it *could*.
    • Re: (Score:1)

      by nothingmuch (5848)

      Conversely I think high level stack delimitation could be useful...
      
      It would be nice to have a wrapper for a low level caller() that returns every single scope, and then filters it, for example to skip things marked as wrappers, or to cut off any calls within local to a certain class or Carp clan or some explicit delimiter. Code that uses caller() is generally either tricky code that wants as much detail as possible, or code that is being tricked and really cares only about high level things.
      
      Maybe there's ye
• Implementation? (Score:1)

  by educated_foo (3106)

  Would you mind talking a bit about the implementation? I looked into doing something like this for Sepia's debugger, and didn't come up with anything satisfactory. I tried defining a DB::sub with a label in it and using "goto LABEL" to jump out of any number of levels of call, but this dramatically slows down the program. The other approach I thought of was to copy the machinery used by eval/die (setting PL_restartop, etc.) in an xsub, but I haven't found the tuits to finish this yet.