rewrite Dedup::Engine::Block as plain Perl (no mop)