Help for this page

Select Code to Download

Select or download this

no warnings;

...
sub AnotherSub {
    GenerateWarning();
}

Select or download this

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