Hi Sébastien,
* Sébastien Aperghis-Tramoni <[EMAIL PROTECTED]> [2007-10-06 03:05]:
> package BigApp::Report;
> use relative to_parent => qw(Utils);
> # loads BigApp::Utils
>
> use relative to_self => qw(Create Publish);
> # loads BigApp::Report::Create, BigApp::Report::Publish
I like the idea. Catalyst privately invents something like that,
so obviously there are other people who feel the same need. But I
like neither the name nor the interface. How about this:
package BigApp::Report;
use subclass qw(..::Utils Create Publish);
# loads BigApp::Utils, BigApp::Report::Create, BigApp::Report::Publish
--
*AUTOLOAD=*_;sub _{s/(.*)::(.*)/print$2,(",$\/"," ")[defined wantarray]/e;$1}
&Just->another->Perl->hack;
#Aristotle
