How can I require an optional Perl module if installed?

by

Here’s a bare-bones solution that does not require another module:

my $rc = eval
{
  require Term::ReadKey;
  Term::ReadKey->import();
  1;
};

if($rc)
{
  # Term::ReadKey loaded and imported successfully
  ...
}

Note that all the answers below (I hope they’re below this one! 🙂 that use eval { use SomeModule } are wrong because use statements are evaluated at compile time, regardless of where in the code they appear. So if SomeModule is not available, the script will die immediately upon compiling.

(A string eval of a use statement will also work (eval 'use SomeModule';), but there’s no sense parsing and compiling new code at runtime when the require/import pair does the same thing, and is syntax-checked at compile time to boot.)

Finally, note that my use of eval { ... } and $@ here is succinct for the purpose of this example. In real code, you should use something like Try::Tiny, or at least be aware of the issues it addresses.

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 do I “use” a Perl module in a directory not in @INC?
  5. How can I dynamically include Perl modules without using eval?
  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. Failing to install MIME::Base64 using cpan [closed]
  13. Declaring a 2D coordinate in Perl / C / C++ [closed]
  14. Why can’t Perl find my file that is in ClearCase?
  15. When should I use the & to call a Perl subroutine?
  16. What’s the difference between my ($variableName) and my $variableName in Perl?
  17. How can I hook into Perl’s print?
  18. Why do my Perl tests fail with use encoding ‘utf8’?
  19. What is the difference between my and local in Perl?
  20. Why does my Perl script exit with 137?
  21. Perl read line by line
  22. What is the difference between Perl’s ( or, and ) and ( ||, && ) short-circuit operators?
  23. How do I change, delete, or insert a line in a file, or append to the beginning of a file in Perl?
  24. Obtain a switch/case behaviour in Perl 5
  25. How do I extract the domain out of an URL?
  26. Why does $foo->{bar} autovivify but %$foo doesn’t?
  27. Which framework should I use to write modules? [closed]
  28. How do I capture Perl’s STDOUT in a variable?
  29. Is object oriented exception handling in Perl worth it?
  30. How can I check whether my Perl installation is 32 or 64 bit?

Leave a Comment