# from Sébastien Aperghis-Tramoni
# on Monday 08 October 2007 16:02:
> use relative;
> my $Customer = import relative qw(Report Customer);
This changes the require() on Foo::Report and Foo::Customer to run-time
though, right?
If only we had userland pragmas, you could just create functions Report
and Customer and delete them in unimport().
use relative qw(Report Customer);
...
my $c = Customer->new();
my $r = Report->new()
...
no relative;
--Eric
--
"...the bourgeoisie were hated from both ends: by the proles, because
they had all the money, and by the intelligentsia, because of their
tendency to spend it on lawn ornaments."
--Neal Stephenson
---------------------------------------------------
http://scratchcomputing.com
---------------------------------------------------
