Re: "use" dynamic module


No such thing as a small change
	PerlMonks

Re: "use" dynamic module

by ikegami (Patriarch)

on Dec 06, 2005 at 06:24 UTC ( [id://514341]=note: print w/replies, xml )

Need Help??

in reply to "use" dynamic module

my $file = $mod;
$file =~ s{::}{/}g;
$file .= '.pm';
eval {
   require $file;
};
die("Unable to load $mod: $@\n")
   if $@;
[download]

should do what you want.

Note that it executes at run-time (while use executes at compile-time), but that's probably fine. Wrap the code in a BEGIN { } block if you need to execute this at compile-time.

Note that it doesn't import symbols, but that's probably a good thing for dynamically loaded modules. Add $mod->import if $mod->can('import'); if you need to import symbols.

Update: PodMaster suggested that I provide these links: use, require.

Comment on Re: "use" dynamic module Select or Download Code

Replies are listed 'Best First'.
Re^2: "use" dynamic module by xdg (Monsignor) on Dec 06, 2005 at 09:08 UTC
For a prepackaged approach, it might be worth considering UNIVERSAL::require. Its synopsis: `# This only needs to be said once in your program. require UNIVERSAL::require; # Same as "require Some::Module" my $module = 'Some::Module'; $module->require or die $@; # Same as "use Some::Module" BEGIN { $module->use or die $@ }` [download] -xdg Code written by xdg and posted on PerlMonks is public domain. It is provided as is with no warranties, express or implied, of any kind. Posted code may not have been tested. Use of posted code is at your own risk.	[reply] [d/l]
Re^2: "use" dynamic module by ysth (Canon) on Dec 06, 2005 at 21:04 UTC
`$mod->import if $mod->can('import');` No can() check needed; if there's no import, $mod->import() is silently a noop (even if there is an AUTOLOAD!).	[reply] [d/l]