no warnings;

sub test_warnings {
    GenerateWarning();
    AnotherSub();
}

sub AnotherSub {
    GenerateWarning();
}

##</code><code>##

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