I would like to suppress some warnings that I know will be generated in user supplied callback code.

Ie. I thought that the no warnings statement at point A in the code below would avoid the need to do it (commented out) in the callback code, but it doesn't.

Is there some way to do this? $^H manipulations or some such?

#! perl -slw
use strict;

sub test (&) {
    my $code = shift;
    {
        no warnings 'uninitialized'; ## A
        $code->( undef );
    }
}

test {
#    no warnings 'uninitialized';
    print "@_"
};
[download]

I can suppress all warnings using $^W, but I'd rather just stop the ones I know will occur and leave the rest as diagnostics for the callers code.