package broken;
 
 
use strict;
use warnings;
 
sub broken {
  my ($c) = shift;
 
  # this is an intentional syntax error.
  $c->foo
 
  return 1;
}
 
1;
 

#!/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.
 

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;