#!/usr/bin/env perl

use Test::More tests => 3;

*CORE::GLOBAL::require = sub { die "foobar" };

BEGIN
{
	use_ok( 'nextgen' ) or exit;
	nextgen->import();
}

eval 'require "foo";';
like ( $@, qr/foobar/, 'died via the chained sub (require)' );

eval 'use foo;';
like ( $@, qr/foobar/, 'died via the chained sub (use)' );