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