sub MyClass::myfreezer { ... }
$Data::Dumper::Freeze='myfreezer'