use feature (sprintf(":%vd", $^V)); # to avoid relying on the feature
# logic to add CORE::
+no warnings 'experimental::aggref';
use B::Deparse;
my $deparse = new B::Deparse;
unless ($got_text =~ /^{
package test;
+ BEGIN {\${\^WARNING_BITS} = "[^"]*"}
use strict 'refs', 'subs';
use feature [^\n]+
\Q$vars\E\(\) = (.*)