use strict; use Test::More 0.98; like 'a', qr/a/, q{ like }; eval {die 'a'}; like $@, qr/a/, q{ like eval }; done_testing; use strict; use Test::More 0.98; use Test::Exception; like 'a' , qr/a/, q{ like }; throws_ok {die 'a'} qr/a/, q{ throws_ok }; done_testing;