How can I dynamically include Perl modules without using eval?

by

Use require to load modules at runtime. It often a good idea to wrap this in a block (not string) eval in case the module can’t be loaded.

eval {
    require My::Module;
    My::Module->import();
    1;
} or do {
   my $error = $@;
   # Module load failed. You could recover, try loading
   # an alternate module, die with $error...
   # whatever's appropriate
};

The reason for the eval {...} or do {...} syntax and making a copy of $@ is because $@ is a global variable that can be set by many different things. You want to grab the value as atomically as possible to avoid a race condition where something else has set it to a different value.

If you don’t know the name of the module until runtime you’ll have to do the translation between module name (My::Module) and file name (My/Module.pm) manually:

my $module="My::Module";

eval {
    (my $file = $module) =~ s|::"https://stackoverflow.com/"g;
    require $file . '.pm';
    $module->import();
    1;
} or do {
    my $error = $@;
    # ...
};

More Related Contents:

  1. How can I install a CPAN module into a local directory?
  2. How can I install Perl modules without root privileges?
  3. How can I use a new Perl module without install permissions?
  4. How can I require an optional Perl module if installed?
  5. How do I “use” a Perl module in a directory not in @INC?
  6. What is the difference between new Some::Class and Some::Class->new() in Perl?
  7. How do I choose a package name for a custom Perl module that does not collide with builtin or CPAN packages names?
  8. How can I install a specific version of a set of Perl modules?
  9. Why is the Switch module deprecated in Perl?
  10. How can I find the version of an installed Perl module?
  11. In Perl, how can I check from which module a given function was imported?
  12. Convert Bash script to Perl/VBS/any other windows compatible language [closed]
  13. How is Perl’s @INC constructed? (aka What are all the ways of affecting where Perl modules are searched for?)
  14. How do I compare two strings in Perl?
  15. What is the difference between ‘my’ and ‘our’ in Perl?
  16. Difference between &function and function() in perl [duplicate]
  17. How do you round a floating point number in Perl?
  18. How does double arrow (=>) operator work in Perl?
  19. Why are Perl source filters bad and when is it OK to use them?
  20. Perl 5.20 and the fate of smart matching and given-when
  21. How does Perl parse unquoted bare words?
  22. Perl build, unit testing, code coverage: A complete working example
  23. In Perl, how do I change, delete, or insert a line in a file, or append to the beginning of a file?
  24. In Perl, how can I find the index of a given value in an array?
  25. How can I run a system command in Perl asynchronously?
  26. What should I use for a Perl script’s shebang line?
  27. How can I find memory leaks in long-running Perl program?
  28. Why do Perl variables need to start with $, %,@ (sigils)?
  29. Print lines from one file that are not contained in another file
  30. Perl DBD::Oracle Module installation

Leave a Comment