in reply to Renaming a module
Am I crazy?
With modules named like that, surely! ;)
How would I go about making Pileofrogs::Frob transparently hand me Pileofrogs::Util::frob when I ask for Pileofrogs::Frob::frob?
Update: More efficient:package Pileofrogs::Frob; sub frob { warn("Redirecting Pileofrogs::Frob::frob to Pileofrogs::Util::frob\ +n") unless our $frob_warning++; require Pileofrogs::Util; &Pileofrogs::Util::frob }
package Pileofrogs::Frob; sub frob { warn("Redirecting Pileofrogs::Frob::frob to Pileofrogs::Util::frob\ +n"); require Pileofrogs::Util; { no warnings 'redefine'; *frob = \&Pileofrogs::Util::frob; } &frob }
Update: Switched from goto &frob; to &frob;. The latter is faster.
|
|---|