Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Modifying SelfLoader to save eval() text

by rockyb (Scribe)
on Jun 08, 2013 at 11:00 UTC ( #1037835=note: print w/replies, xml ) Need Help??

in reply to Modifying SelfLoader to save eval() text

Lacking other suggestions, here is something that almost works and that is described below. But now the problem devolves into being able to overwrite or chain after SelfLoader::AUTOLOAD if SelfLoader is use'd.

Alternatively if I could trap, replace, or chain on a use SelfLoader that would work too.

I've written a replacement for SelfLoader called Devel::Trepan::SelfLoader and this can be distributed with Devel::Trepan.

The problem I encounter is that the debugger can be and often is loaded before the program to be debugged. So when the debugged program issues a use SelfLoader any AUTOLOAD or SelfLoader::AUTOLOAD code that I've written gets redefined. It looks like AUTOLOAD isn't chained by default, but instead the last one defined is used.

Replies are listed 'Best First'.
Re^2: Modifying SelfLoader to save eval() text
by rockyb (Scribe) on Jun 09, 2013 at 06:16 UTC

    With Devel::Trepan commit 263c7bfce0 I now have everything solved. There could be a better solution, but this one has certain advantages.

    I can now use the debugger to fully debug a little selfloader Perl script. Since the debugger has the text of the eval string now, it writes out a temporary file. You can now list the code or set line number breakpoints in it.

    The last missing problem was making sure we hooked into a debugger-enabled version of SelfLoader rather than the one that comes with Perl. In order to do this, I now trap on use statements by inserting a code reference at the beginning of %INC. See the documentation on perldoc on require and how it uses %INC.

    Specifically, my code returns a file-handle glob for my debugger-enabled SelfLoader when I see that is requested. It has to be a real glob rather than a scalar reference to a file handle, or else the lookup tacitly fails.

    With this custom program added to %INC I can also do other cool things. Like trace or perhaps debug into use code!

    So in closing, I'll say that I am amazed at how flexible Perl is. There are lots and lots of mechanisms there. But I am equally amazed at how difficult it is to provide good debugging facility. I think most people just live with things like not being able to list lines of selfloader code or other kinds of eval'd code. Probably many (like myself too often) have to rely on just print statements.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1037835]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2018-06-20 12:55 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (116 votes). Check out past polls.