<?xml version="1.0" encoding="windows-1252"?>
<node id="992303" title="Re: Let a module call a sub of the caller" created="2012-09-07 08:38:00" updated="2012-09-07 08:38:00">
<type id="11">
note</type>
<author id="757127">
tobyink</author>
<data>
<field name="doctext">
&lt;p&gt;[mod://B::Hooks::EndOfScope] or perhaps [mod://Hook::AfterRuntime] (or even a combination of the two) ought to do the trick.&lt;/p&gt;
&lt;!-- Node text goes above. Div tags should contain sig only --&gt;
&lt;div class="pmsig"&gt;&lt;div class="pmsig-757127"&gt;
&lt;small&gt;&lt;small&gt;
&lt;tt&gt;perl -E'sub Monkey::do{say$_,for@_,do{($monkey=&amp;#x5B;caller(0)]-&gt;&amp;#x5B;3])=~s{::}{ }and$monkey}}"Monkey say"-&gt;Monkey::do'
&lt;/tt&gt;&lt;/small&gt;&lt;/small&gt;
&lt;/div&gt;&lt;/div&gt;</field>
<field name="root_node">
992164</field>
<field name="parent_node">
992164</field>
</data>
</node>
