use strict;
use warnings;
use B::Deparse;

sub test {
   use set my $y =666;
   print $y;
}

#test();

print B::Deparse->new()->coderef2text(\&test);

##</code><code>##

Global symbol "$y" requires explicit package name at d:/exp/t_set.pl aborted due to compilation errors.
["set", 666]

##</code><code>##

exec 't_set.pl' unless caller;

package set;
use strict;
use warnings;
use Data::Dump qw/dd pp/;



sub import {
   dd \@_;
}
1;