1#!/usr/bin/perl -w 2 3use strict; 4use Test::More tests => 2; 5 6use base; 7 8{ 9 package Test::SIGDIE; 10 11 local $SIG{__DIE__} = sub { 12 ::fail('sigdie not caught, this test should not run') 13 }; 14 eval { 15 'base'->import(qw(Huh::Boo)); 16 }; 17 18 ::like($@, qr/^Base class package "Huh::Boo" is empty/, 19 'Base class empty error message'); 20} 21 22 23{ 24 use lib 't/lib'; 25 26 local $SIG{__DIE__}; 27 base->import(qw(HasSigDie)); 28 ok $SIG{__DIE__}, 'base.pm does not mask SIGDIE'; 29} 30