There is Test::Exception. It might be what you are looking for

Update: also found Test::Trap and Test::Warn.