$ perle 'BEGIN { @INC = qw{old new .} } use Bleed::xyz 2.0; say $xyz::VERSION' import called with args: xyz 2.0 $ perle 'BEGIN { @INC = qw{old new .} } use Bleed::xyz 2.0 (); say $xyz::VERSION' 2.0 $ perle 'BEGIN { @INC = qw{old new .} } use Bleed::xyz 2.0 qw{a b c}; say $xyz::VERSION' import called with args: xyz a b c 2.0 $ perle 'BEGIN { @INC = qw{old new .} } use Bleed::xyz; say $xyz::VERSION' import called with args: xyz 2.0 $ perle 'BEGIN { @INC = qw{old new .} } use Bleed::xyz (); say $xyz::VERSION' 2.0 $ perle 'BEGIN { @INC = qw{old new .} } use Bleed::xyz qw{a b c}; say $xyz::VERSION' import called with args: xyz a b c 2.0