Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Can I find out which package a subroutine is from, originally?

by nate (Monk)
on Jan 03, 2001 at 05:58 UTC ( [id://49434]=perlquestion: print w/replies, xml ) Need Help??

nate has asked for the wisdom of the Perl Monks concerning the following question:

Most honorable monks, here is a question to prove your mastery of the symbol table and Perl's intestines:

I have a collection of modules in Everything::Node:: which carry functions for specific nodetypes -- (ie Everything::Node::user contains methods for user objects, Everything::Node::document for documents, etc). All of these modules "use Everything;" which allows them to access necessary functions.

Well, this works fine and dandy -- until I actually want to "see" into a specific module and figure out which subroutines are coming from Everything::Node::user. I can check the symbol table with something like this:

my $module = "Everything::Node::user"; #a bit of code clipped from the perl cookbook use no strict; local *stash; *stash = *{ "${module}::" }; #this is assuming the module has been "use"d -- which it has my @modfuncs; foreach(keys %stash) { push (@modfuncs, $_) if defined &{ $stash{$_} }; } @modfuncs; #my handy array of module functions

It gives me all the functions in the module, but it also gives me all the symbols that are exported from Everything.pm (or any other included modules).

All I want is the symbols that are defined by the specific module -- exclusive of exports from other modules. Is there any way I can find which package each sub originated from, so I can discriminate and only show the methods from Everything::Node::user?

Much appreciation for needed wisdoms,

--nate

PS for those of you familiar with Everything core, I'm trying to fix this bug from the "Gigantic Code Lister" in the "showchoicefunc" htmlcode...

Replies are listed 'Best First'.
Re: Can I find out which package a subroutine is from, originally?
by tye (Sage) on Jan 03, 2001 at 06:13 UTC

    In Re: Validating a Code Reference I mention my favorite, Devel::Peek::CvGV(), which I just tested and using it on \&main::ImportedFunction appears to give you the original package name.

    You could also try some of the other solutions mentioned in that thread.

    Update: Now that I got first post (j/k), here is some tested code:

    #!/usr/bin/perl -w use strict; use Devel::Peek "CvGV"; my $x= CvGV(\&CvGV); print "$x\n"; $x =~ s/^\*//; $x =~ s/::[^:]+$//; print "CvGV came from $x.\n";
    which prints "*Devel::Peek::CvGV" then "CvGV came from Devel::Peek."

            - tye (but my friends call me "Tye")
      Dang, you so smoove!

      Revised code as so:

      use Devel::Peek "CvGV"; my $module = "Everything::Node::user"; #a bit of code clipped from the perl cookbook use no strict; local *stash; *stash = *{ "${module}::" }; #this is assuming the module has been "use"d -- which it has my @modfuncs; foreach(keys %stash) { my $glob = CvGV(\&{$stash{$_}}); $glob =~ s/^\*//; push (@modfuncs, $_) if defined &{ $stash{$_} } and $glob eq "$module\:\:$_"; } @modfuncs; #only the functions in my module!

      And it works! Thanks...

      --nate

Re: Can I find out which package a subroutine is from, originally?
by stephen (Priest) on Jan 03, 2001 at 06:22 UTC
    I'll confess that I can't test this on my box, but you might be able to use Devel::Symdump. The documentation seems to indicate that doing:
    use Devel::Symdump; my $dump = Devel::Symdump->new('Everything::node::user'); my @functions = $dump->functions();
    Unfortunately, I'm just going by docs here, and don't know if this will work, or if it just encapsulates what you're already doing. Good luck.

    Update: Tested. Doesn't work... prints out all, just like your above code. Sorry.

    stephen

      this actually gives me the same data that my code snippet posted above gives me. It looks like it's accessing the symbol table in a similar fashon.

      thanks anyway,

      --nate

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://49434]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having a coffee break in the Monastery: (7)
As of 2024-05-20 18:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found