broken.pm

package broken;


use strict;
use warnings;

sub broken {
  my ($c) = shift;

  # this is an intentional syntax error.
  $c->foo

  return 1;
}

1;

t2.pl

#!/usr/bin/perl
use strict;
use warnings;

use Carp::Always;
require WMDs;

__END__

With:
  syntax error at t2.pl line 6

Without:

syntax error at broken.pm line 13, near "->foo

  return"
Compilation failed in require at WMDs.pm line 12.
Compilation failed in require at t2.pl line 6.

WMDs.pm

package WMDs;


use strict;
use warnings;

# Plagurised from Catalyst::Util;
sub anarchy {
  my $error;
  {
    local $@;
    eval { CORE::require('broken.pm') };
    $error = $@;
  }

  die $error if $error;
}

#sub import {
  WMDs->anarchy();
#}
1;