In Perl, how can I check from which module a given function was imported?

by

The Devel::Peek module is very handy to get all sorts of information about variables. One of the things you can do with it is dump a reference to a subroutine and get the name of the glob it came from:

$  perl -MDevel::Peek -MList::Util=first -e'Dump(\&first)'
SV = IV(0x1094e20) at 0x1094e28
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x11183b0
  SV = PVCV(0x10ff1f0) at 0x11183b0
    REFCNT = 3
    FLAGS = (POK,pPOK)
    PROTOTYPE = "&@"
    COMP_STASH = 0x0
    XSUB = 0x7f7ecbdc61b0
    XSUBANY = 0
    GVGV::GV = 0x11183c8        "List::Util" :: "first"
    FILE = "ListUtil.c"
    DEPTH = 0
    FLAGS = 0x800
    OUTSIDE_SEQ = 0
    PADLIST = 0x0
    OUTSIDE = 0x0 (null)

the GVGV::GV part in there is the important bit.

An alternative solution would be Sub::Identify, which really only gives you names for code references you hand to it. However, knowing about Devel::Peek is handy in many other situations too, so I mentioned that first.

More Related Contents:

  1. Why are Perl 5’s function prototypes bad?
  2. How can I install a CPAN module into a local directory?
  3. How can I install Perl modules without root privileges?
  4. How can I use a new Perl module without install permissions?
  5. How can I require an optional Perl module if installed?
  6. Correct use of modules, subroutines and functions in Fortran
  7. When should I use the & to call a Perl subroutine?
  8. How do I “use” a Perl module in a directory not in @INC?
  9. How can I dynamically include Perl modules without using eval?
  10. What is the difference between new Some::Class and Some::Class->new() in Perl?
  11. How do I choose a package name for a custom Perl module that does not collide with builtin or CPAN packages names?
  12. What does the function declaration “sub function($$)” mean?
  13. How can I install a specific version of a set of Perl modules?
  14. Why is the Switch module deprecated in Perl?
  15. How can I find the version of an installed Perl module?
  16. Nested subroutines and Scoping in Perl
  17. Proper use of modules in Fortran
  18. What does this HTML::Parser() code do in Perl? [closed]
  19. Why use strict and warnings?
  20. Why does modern Perl avoid UTF-8 by default?
  21. What’s the difference between Perl’s backticks, system, and exec?
  22. Defining private module functions in python
  23. How can I parse dates and convert time zones in Perl?
  24. How do I tell if a variable has a numeric value in Perl?
  25. Global symbol requires explicit package name
  26. How do I include functions from another file in my Perl script?
  27. Use of ‘use utf8;’ gives me ‘Wide character in print’
  28. What does shift() do in Perl?
  29. Which framework should I use to write modules? [closed]
  30. How can I check whether my Perl installation is 32 or 64 bit?

Leave a Comment