package Bar;
use warnings;
use strict;

our $x;

1;

##</code><code>##

use warnings;
use strict;
use FindBin;
use lib $FindBin::Bin;

#use Bar; # no warning
#use Bar (); # no warning
#BEGIN { require Bar; } # no warning
require Bar; # warning when var used only once

$Bar::x = 1; # warning with plain 'require'

#$Bar::x = $Bar::x = 1; # no warning