4 use Test::More tests => 2;
11 local $SIG{__DIE__} = sub {
12 ::fail('sigdie not caught, this test should not run')
15 'base'->import(qw(Huh::Boo));
18 ::like($@, qr/^Base class package "Huh::Boo" is empty/,
19 'Base class empty error message');
27 base->import(qw(HasSigDie));
28 ok $SIG{__DIE__}, 'base.pm does not mask SIGDIE';