view release on metacpan or  search on metacpan

Import.pm.PL  view on Meta::CPAN

#!/usr/bin/env perl

open STDOUT, ">$ARGV[0]~"
   or die "$ARGV[0]~: $!";

our $WARN;
our $H;

BEGIN {
	$H    = $^H;
}

use utf8;
use strict qw(subs vars);

no warnings;
use warnings qw(
	FATAL closed threads internal debugging pack malloc portable prototype
	inplace io pipe unpack deprecated glob digit printf
	layer reserved taint closure semicolon
);
no warnings qw(exec newline unopened);

BEGIN {
	$H    = $^H              & ~$H;
	$WARN = ${^WARNING_BITS};
}

print "package Class::Easy::Import;

";

printf "our \$H = 0x%x;\n", $H;
printf "our \$WARN = \"%s\";\n\n", join "", map "\\x$_", unpack "(H2)*", $WARN;

print "sub import {
	# use warnings
	\${^WARNING_BITS} = \$WARN;
	
	# use strict, use utf8;
	\$^H |= \$H;
	
	# use feature
	\$^H{feature_switch} = \$^H{feature_say} = \$^H{feature_state} = 1;

}
";

print "1;";

close STDOUT;

rename "$ARGV[0]~", $ARGV[0];