use Perl

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

  by dagolden (6584)

  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$}{};
        $@ = <
  • Re:hacking in a nicer error message? (Score:2)

    by vek (2312) on 2010.01.22 16:53 (#71560) Journal

    Nice first hack though. Seriously.

    Reply to This

    Parent