Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: Prettified Perl Inheritance

by bsb (Priest)
on Aug 03, 2003 at 07:01 UTC ( #280406=note: print w/replies, xml ) Need Help??

in reply to Prettified Perl Inheritance

See also GraphViz::ISA and pmload in pmtools (basic).

Diamond inheritence will get tree-ified won't it?

Also, use/require already remembers loaded modules in %INC:

$ perl -MDBI -le '$,="\n"; print %INC' warnings/ /usr/share/perl/5.8.0/warnings/ /usr/share/perl/5.8.0/ Exporter/ /usr/share/perl/5.8.0/Exporter/ /usr/share/perl/5.8.0/ continues ...

Replies are listed 'Best First'.
Re: Re: Prettified Perl Inheritance
by Kageneko (Scribe) on Aug 04, 2003 at 04:52 UTC

    Hmm, I haven't done any testing with diamond inheritance. I know that I setup the code to not follow an inheritance tree more than once, so it wouldn't get into infinite loops.

    The reason I didn't use %INC for testing whether a module was loaded was because I wanted to record which module had loaded it first (well, in the tree-scheme of things :) and didn't really care where the file existed.

    Thanks for the tip (and thanks to PodMaster for his) regarding the graphing modules.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2018-03-22 02:23 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (272 votes). Check out past polls.