package Foo;

sub bar {
    $SIG{__WARN__} = sub { 0; };
}

1;