$ perl -le " use B::Deparse; use 5.014; print B::Deparse->new->coderef2text(sub{}) "
{
    use strict;
    no feature;
    use feature ':5.12';

}

##</code><code>##

$ perl -le " use B::Deparse; use 5.014; print B::Deparse->new->coderef2text(sub{ use 5.014; }) "
{
    use strict;
    no feature;
    use feature ':5.12';

}
##</code><code>##

$ perl -MO=Deparse -le " use 5.014; "
BEGIN { $/ = "\n"; $\ = "\n"; }
sub BEGIN {
    require 5.014;
}
-e syntax OK