Devel::Sub::Which - Name information about sub calls à la "can" in UNIVERSAL and <which(1)>.
use Devel::Sub::Which qw/:universal/; # elsewhere $obj->which("foo"); # returns the name of the sub that # will implement the "foo" method Devel::Sub::Which::which($code_ref); # returns the name of the ref
I don't like the perl debugger. I'd rather print debug statements as I go along, mostly saying "i'm going to do so and so", so I know what to look for when stuff breaks.
Often I find myself faced with polymorphism crap flying into my. With multiple inheritence, delegations, runtime generated classes, method calls on non predeterminate values, and so forth, it sometimes makes sense to do:
my $method = < blah blah blah >; debug("i'm going to call $method on $obj. FYI, it's going to be " . $obj->which($method)); $obj->$method()
In order to figure out exactly which $method was responsible for your error, or whatever. This helps the above debugging style by providing more deterministic reporting.
This method determines which subroutine reference will be executed for METHOD, using UNIVERSAL::can (or any overriding implementation),
The first form has the same effect as OBJ->which(METHOD), and the second form just delegates to Sub::Identify
Nothing is exported by default. These parameters will have an effect:
This causes which to become a method in UNIVERSAL, so that you can call it on any object.
which
Yitzchak Scott-Thoennes provided the know-how needed to get the name of a sub reference.
This module is maintained using Darcs. You can get the latest version from http://nothingmuch.woobling.org/Devel-Sub-Which/, and use darcs send to commit changes.
darcs send
Yuval Kogman <nothingmuch@woobling.org>
Copyright (c) 2004 Yuval Kogman. All rights reserved This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Sub::Identify, DB, perldebug, UNIVERSAL, B
1 POD Error
The following errors were encountered while parsing the POD:
Non-ASCII character seen before =encoding in 'à'. Assuming CP1252
To install Devel::Sub::Which, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Devel::Sub::Which
CPAN shell
perl -MCPAN -e shell install Devel::Sub::Which
For more information on module installation, please visit the detailed CPAN module installation guide.