Rose::DB uses Clone::PP while other parts of Rose use Clone

Rose::DB will work fine with Clone and a conversation with the author
confirmed that the use of Clone::PP is leftover from older versions.

--- a/META.yml
+++ b/META.yml
@@ -19,7 +19,7 @@ no_index:
     - inc
 requires:
   Bit::Vector::Overload: 6.4
-  Clone::PP: 0
+  Clone: 0
   DBI: 0
   DateTime::Duration: 0
   DateTime::Format::MySQL: 0
diff --git a/Makefile.PL b/Makefile.PL
index d35146b..ac07318 100755
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -16,7 +16,7 @@ WriteMakefile(NAME         => 'Rose::DB',
               PREREQ_PM =>
               {
                 'DBI'                      => 0,
-                'Clone::PP'                => 0,
+                'Clone'                => 0,
                 'Bit::Vector::Overload'    => '6.4',
                 'DateTime::Format::Pg'     => '0.11',
                 'DateTime::Format::MySQL'  => 0,
diff --git a/lib/Rose/DB.pm b/lib/Rose/DB.pm
index 0b04df1..5e673af 100755
--- a/lib/Rose/DB.pm
+++ b/lib/Rose/DB.pm
@@ -4,7 +4,7 @@ use strict;
 
 use DBI;
 use Carp();
-use Clone::PP();
+use Clone;
 use Bit::Vector::Overload;
 use SQL::ReservedWords();
 
@@ -689,7 +689,7 @@ sub init_db_info
 sub init_connect_options
 {
   my($class) = ref $_[0];
-  return Clone::PP::clone(scalar $class->default_connect_options);
+  return Clone::clone(scalar $class->default_connect_options);
 }
 
 sub connect_option
diff --git a/lib/Rose/DB/Registry/Entry.pm b/lib/Rose/DB/Registry/Entry.pm
index ab29ab1..100fbc8 100755
--- a/lib/Rose/DB/Registry/Entry.pm
+++ b/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);
@@ -189,7 +189,7 @@ sub dump
   {
     my $value = $self->$attr();
     next  unless(defined $value);
-    $dump{$attr} = Clone::PP::clone($value);
+    $dump{$attr} = Clone::clone($value);
   }
 
 
@@ -199,13 +199,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;
 
-- 
1.7.11.1