How can I use the symbol table for the current package? For example, I have something like this:
My $ object = MyModule-> new; # It appears in the current package, to see if Run_me is a function of the name, in I #, I would like to know that a sub-reference is $ object-> Do_your_job; If I use the __ package __
in the implementation of do_your_job
, then in the MyModule
package Will search How can I see it in the right package?
EDIT: I will try to clarify it. Let's say I have the following code:
package MyMod; Sub new {return blessing}, $ _ [0]} sub do_your_job {my $ self = shift; # Of course find_package_of is fictitious here # Just for this example, $ pkg should be my $ pkg = find_package_of ($ self); If (defined & amp; amp; amp; {pkg. ':: run_me'}) {# function is present, it is called}} package main; The sub-run_me {print "X" should run me. \ N "; } My $ x = MyMod- & gt; new; # Run_me should meet in this current package and open it. $ X- & gt; Do_your_job;
Now, $ x
should be anyhow to note that the main
is the current package, and its symbol table search I Scalar :: Util
, but it still gave me MyModule
instead of main
. Hopefully, it's just a bit obvious now.
you just want
caller
Tells the package from which it was called. (Here I added some standard pearl.)
Use symbol qw & lt; Qualify_to_ref> # ... my $ pkg = caller; My $ symb = qualify_to_ref ('run_me', $ pkg); My $ run_me = * {$ symb} {CODE}; $ Run_me- & gt; () If set to $ run_me;
To see it and see if it is defined and to call it, it will be duplicated because the standard Pearl does not do normal subxpress emissions, so that you 1) again This can be achieved, and 2) check the definition of the slot, and 3) Run it if it is defined.
Now if you make an object in a package and use it in another, then it is not going to be of great help. You need to add additional code such as 'owning_package'
in the constructor.
Package MyMod; # ... sub new {# ... $ self- & gt; {Owning_package} = caller || 'Main'; # ...}
Now $ x-> In {owning_package}
, there will be