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

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";
[download]

which prints "*Devel::Peek::CvGV" then "CvGV came from Devel::Peek."

- tye (but my friends call me "Tye")

Comment on Re: Can I find out which package a subroutine is from, originally? Select or Download Code

Replies are listed 'Best First'.
Re: Re: Can I find out which package a subroutine is from, originally? by nate (Monk) on Jan 03, 2001 at 07:22 UTC
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!` [download] And it works! Thanks... --nate	[reply] [d/l]

Replies are listed 'Best First'.

Re: Re: Can I find out which package a subroutine is from, originally?
by nate (Monk) on Jan 03, 2001 at 07:22 UTC

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!
[download]

And it works! Thanks...

--nate

[reply]
[d/l]