Test::Warn can be used to test for both warnings and carp calls. It can be used to check if there was a warning or if there was not.