note
LanX
You need *globs to manipulate symbol table entries like package functions! ( see [doc://perlmod] and [doc://perlsub])<P>
Something like this should do<P>
<c>
{
package A;
local *x = sub { die "aaa" };
#run tests
...
}
# &x reset after leaving block
</c><P>
if you want to explicitly reset <c>&x</c> try to store the old coderef before. <P>
<c>
$old_coderef = \&x;
# run tests
... # do what you want
... # (but think about the omen ;-)
*x = $old_coderef;
</c><P>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-708738">
<p>Cheers Rolf
</div></div>
1006889
1006889