Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

"use" dynamic module

by rsennat (Beadle)
on Dec 06, 2005 at 06:16 UTC ( #514339=perlquestion: print w/replies, xml ) Need Help??

rsennat has asked for the wisdom of the Perl Monks concerning the following question:

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.

Replies are listed 'Best First'.
Re: "use" dynamic module
by ikegami (Patriarch) on Dec 06, 2005 at 06:24 UTC
    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.

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


      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.

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

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://514339]
Approved by ikegami
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (4)
As of 2022-05-25 12:51 GMT
Find Nodes?
    Voting Booth?
    Do you prefer to work remotely?

    Results (90 votes). Check out past polls.