use v5.16;

package Foo {
	no warnings;
	sub foo {
		print( warnings::enabled( 'once' ) ? 'enabled' : 'disabled' );
	}
}

package Bar {
	use warnings qw( once );
	sub bar {
		Foo::foo();
	}
}

Bar::bar();