package Foo;

use warnings::register;

sub bar {
    $^W = warnings::enabled () ? 1 : 0;
    print $baz;
};

1;

package main;

use warnings 'Foo';
Foo::bar ();

no warnings 'Foo';
Foo::bar ();