sub test_warnings {
    local $SIG{__WARN__} = sub {};
    GenerateWarning();
    AnotherSub();
}