http://www.perlmonks.org?node_id=310337


in reply to use deprecated;

That was nice food for thought.
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;
It should be obvious what is happening here, if not just change the eval to a print.

Makeshifts last the longest.