use Perl

• hacking in a nicer error message? (Score:1)

  by dagolden (6584) on 2010.01.22 10:31 (#71551) Journal

  You really like to goad me to put my "evil hat" on. This is a crude example to show the concept -- it would need to be a bit more helpful and a bit more robust for real use.

  package Nice;
  use strict;
  use warnings;
  no warnings 'once';
  
  *CORE::GLOBAL::require = sub {
    my $mod = shift;
    eval { CORE::require($mod) };
    if ($@) {
      if ( my ($mod) = $@ =~ /\ACan't locate (\S+)/ ) {
        $mod =~ s{/}{::}g;
        $mod =~ s{\.pm$}{};
        $@ = <<"END";
  Can't locate $mod in your Perl library.  You may need to install it
  from CPAN or another repository.  Your library paths are:
  END
        $@ .= "  $_\n" for @INC;
      }
      die $@;
    }
    return 1;
  };
  
  1;

  Here's an example:

  $ perl -MNice -MFoo::Bar -e 1
  Can't locate Foo::Bar in your Perl library.  You may need to install it
  from CPAN or another repository.  Your library paths are:
    /opt/perl/5.10.1/lib/5.10.1/x86_64-linux-ld
    /opt/perl/5.10.1/lib/5.10.1
    /opt/perl/5.10.1/lib/site_perl/5.10.1/x86_64-linux-ld
    /opt/perl/5.10.1/lib/site_perl/5.10.1
    .

  Could be done via PERL5OPT or perhaps the site-customization file.

  -- dagolden [dagolden.com]

  Reply to This

  • Re: (Score:2)

    by Ovid (2709)

    Also, maybe try to trap the file and line number where they tried to require the module?
  • Re: (Score:2)

    by vek (2312)

    Nice first hack though. Seriously.
  • Re: (Score:1)

    by patspam (8594)

    It'd be nice if Padre detected this in its console output too - and automatically opened a CPAN GUI to help the user install the dependency (http://padre.perlide.org/trac/ticket/70#comment:2)