The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use lib 't', 'inc';
use Test::More tests => 4;
use onlyTest;

use only '_Foo::Bar' => '1.00';
unlike($INC{'_Foo::Bar.pm'}, qr'version');
is($_Foo::Bar::VERSION, '1.00');
require _Foo::Baz;
unlike($INC{'_Foo::Bar.pm'}, qr'version');
is($_Foo::Baz::VERSION, '0.98');