no warnings 'redefine';
package Time::Piece;
sub _mktime { ... }

##</code><code>##

sub Time::Piece::_mktime { ... }