$Data::Dumper::Freezer = 'my_dumper';

sub DateTime::my_dumper { ... }