The old Legacy probably didn't have objects hanging around, so how about restricting the object to a lexical scope?

package Legacy; sub Ugly_Sub_Name { my $new_obj = New->new(); $new_obj->pretty_method; }
Even just making the object a file scoped lexical would work, but I don't see a need to make a closure on it.

After Compline,
Zaxo


In reply to Re: mod_perl and forwarding legacy functions to a global object by Zaxo
in thread mod_perl and forwarding legacy functions to a global object by elusion

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":