{
   my $registry_path = '/path/to/registry.dd';
   my ($u_registry_path) = $registry_path =~ /(.*)/;

   {
      no warnings 'redefine';
      *Spoon::Registry::registry_path = sub { $u_registry_path };
   }
}