package WarningsStrictAndCarpOhMy;
# worst name ever, I know
use 5.006_001;
use Carp;
use strict;
use warnings;

sub import {
  my %config;
  undef @config{@_};
  $^H |= strict->import unless exists $config{'no_strict'};
  ${^WARNING_BITS} |= warnings->import;
  $SIG{__DIE__} = \&wasnt_me;
  $SIG{__WARN__} = \&wasnt_me;
}

sub wasnt_me {
  Carp::confess($_[0]);  
}
1;