Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: how to find the module of a specific function?

by ikegami (Patriarch)
on Oct 26, 2017 at 21:09 UTC ( #1202098=note: print w/replies, xml ) Need Help??


in reply to how to find the module of a specific function?

To find the package in which the method was found:

use mro qw( ); use Scalar::Util qw( blessed ); sub get_package { my ($obj, $method_name) = @_; defined( my $class = blessed($obj) ) or return undef; for my $pkg_name (@{ mro::get_linear_isa($class) }) { my $pkg = do { no strict qw( refs ); *{ $pkg_name.'::'.$method_name } }; return $pkg_name if *{$pkg}{CODE}; } return undef; }

Note: Doesn't work if the method is autoloaded.


To find the package in which the method was compiled:

use B qw( svref_2object ); sub get_package { my ($obj, $method_name) = @_; my $method_ref = $obj->can($method_name) or return undef; return svref_2object($method_ref)->GV->STASH->NAME; }

Note: Only works for autoloaded methods if can is properly overridden.

Note: Works for methods implemented in XS.


To find the file in which the method was compiled:

use B qw( svref_2object ); sub get_package { my ($obj, $method_name) = @_; my $method_ref = $obj->can($method_name) or return undef; return svref_2object($method_ref)->FILE; }

Note: Only works for autoloaded methods if can is properly overridden.

Note: Only works well for Perl methods. For methods implemented in XS, it returns the name of the .c file with no path. For example, returns XS.c for JSON::XS->encode. (This may vary by system, and by XS loader.)

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (2)
As of 2022-05-28 11:08 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (99 votes). Check out past polls.

    Notices?