in reply to Best way to dynamically use a .pm?
Use require:
c:\test>type dealer\*.pm dealer\x.pm package config; our $dealer = 'x'; dealer\y.pm package config; our $dealer = 'y'; dealer\z.pm package config; our $dealer = 'z'; c:\test>perl -E"my $p=shift; require qq[dealer/$p.pm]; say $config::de +aler" x x c:\test>perl -E"my $p=shift; require qq[dealer/$p.pm]; say $config::de +aler" y y c:\test>perl -E"my $p=shift; require qq[dealer/$p.pm]; say $config::de +aler" z z
|
|---|