package deprecated;

use constant EVAL_CODE => <<'END_CODE';
sub %1$s::INIT {
	my $overridden = \&%2$s;
	*%2$s = sub {
		require Carp;
		Carp::carp('%2$s() is deprecated');
		*%2$s = $overridden;
		goto &$overridden;
	};
}
END_CODE

sub import {
	my $class = shift;
	my $pkg = caller;
	eval join '', map sprintf(EVAL_CODE, $pkg, "$pkg\::$_"), @_;
}

1;