You may try a perl app and see Can't locate Foo/Bar.pm in @INC (you may need to install the Foo::Bar module) (@INC contains: ...

So you install the Foo::Bar module and try again and see Can't locate Bar/Baz.pm in @INC (you may need to install the Bar::Baz module) (@INC contains: ...

So you install the Bar::Baz module and the application runs.

Module::Load::Conditional (core) can reduce the pain to:

Install required modules Foo::Bar Bar::Baz from CPAN? (y)/n y
Use 1. cpan or 2. cpanm 1/(2) 2
Successfully installed Foo::Bar
Successfully installed Bar::Baz

Or select 'n' for something more than @INC:

Install required perl modules:
cpan Foo::Bar Bar::Baz 
cpanm -v Foo::Bar Bar::Baz 

Can't locate Foo::Bar Bar::Baz in @INC (@INC contains: ...

Should perl be doing something like this on the core level?

Should monks adopt this mess or fold it into a module so it becomes a best practice?

How could this idea be improved?

Thank you!

#!/usr/bin/perl

use strict;
use warnings;

#use Foo::Bar;
#use Bar::Baz;

use Module::Load::Conditional 'can_load';
BEGIN { my $modules = [ map {$_} qw[
IPC::Cmd
Foo::Bar
Bar::Baz
]];

my @install = do { local @_;
  for my $m (@$modules) { push @_, $m
  unless can_load(modules => {$m,undef},
  autoload => 1)} @_
};

@install and do {
  print 'Install required modules ',
  join(' ', @install), ' from CPAN? (y)/n ';
  
  my $in = <STDIN>; chomp $in; $in ||= 'y';
  my $cpanm = IPC::Cmd::can_run('cpanm');

  if (lc $in eq 'y') {
    if ($cpanm) {

      print 'Use 1. cpan or 2. cpanm 1/(2) ';

      my $cpan = do { local $_ = <STDIN>; chomp $_; $_ ||= 2;
      $_ = 2 unless /^1|2$/; $_ };

      if ($cpan == 2) {
        unless (system $cpanm, '-v', @install) {
          system 'perl', $0, @ARGV;
          exit
        }
      }
    }
    unless (system 'cpan', @install) {
      system 'perl', $0, @ARGV;
      exit
    }
  }
  else{
    die "Install required perl modules:\n".
    join ' ', 'cpan',  @install, "\n".
    ($cpanm ? join(' ', 'cpanm', @install) : '')."\n\n".
    "Can't locate ".join(' ',@install).' in @INC '.
    '(@INC contains: '.join(' ', @INC).") \n"
  }
};

Bar::Baz->import('Something')}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.