package Time::MyPiece;
  use base 'Time::Piece';
  my $SUPER;
  foreach (@ISA) {
    $SUPER = $_ and last if $_->can('_mktime');
  }

  ...

  sub _mktime {
    my $t;
    eval "$t = $SUPER::_mktime(@_)";
  }