"use" dynamic module

[rsennat]

hi all,

how do i "use" a module name in a scalar variable??

$mod = "my_module";
use $mod;

How to achieve this kind of usage?? Actually this throws an error.
thanks

[ikegami]

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

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.

[xdg]

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 $@ }

[ysth]

$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!).