Index: lib/Rose/DB/Registry/Entry.pm
--- lib/Rose/DB/Registry/Entry.pm.orig
+++ lib/Rose/DB/Registry/Entry.pm
@@ -2,7 +2,7 @@ package Rose::DB::Registry::Entry;
 
 use strict;
 
-use Clone::PP();
+use Clone();
 
 use Rose::Object;
 our @ISA = qw(Rose::Object);
@@ -193,7 +193,7 @@ sub dump
   {
     my $value = $self->$attr();
     next  unless(defined $value);
-    $dump{$attr} = Clone::PP::clone($value);
+    $dump{$attr} = Clone::clone($value);
   }
 
 
@@ -203,13 +203,13 @@ sub dump
   {
     my $value = $self->{$attr};
     next  unless(defined $value);
-    $dump{$attr} = Clone::PP::clone($value);
+    $dump{$attr} = Clone::clone($value);
   }
 
   return \%dump;
 }
 
-sub clone { Clone::PP::clone($_[0]) }
+sub clone { Clone::clone($_[0]) }
 
 1;
 
