in reply to Re^2: use Module (LIST) and 'import'
in thread use Module (LIST) and 'import'
package Blah; use AppConfig; my $config = AppConfig->new(); sub import { my (%args) = @_; if ( $args{'Config'} ) { $config->file($args{'Config'}); } require OtherModule; OtherModule->import(Config => $config); #### next few lines for testing only use Data::Dumper; print Dumper(\%args); }
$"=$,,$_=q>|\p4<6 8p<M/_|<('=> .q>.<4-KI<l|2$<6%s!<qn#F<>;$, .=pack'N*',"@{[unpack'C*',$_] }"for split/</;$_=$,,y[A-Z a-z] {}cd;print lc
|
|---|