Make Bio::Tools::Primer3 use the clone() method from Bio::Root::Root

bioperl · Aug 8, 2012 · 6f7c56e · 6f7c56e
1 parent 64ce4c8
commit 6f7c56e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 6 deletions.
diff --git a/Bio/Tools/Primer3.pm b/Bio/Tools/Primer3.pm
@@ -129,7 +129,6 @@ use strict;
 use Bio::Seq;
 use Bio::Seq::PrimedSeq;
 use Bio::SeqFeature::Primer;
-use Clone qw(clone);
 
 use vars qw($AUTOLOAD @PRIMER3_PARAMS %OK_FIELD $ID);
 
@@ -338,9 +337,10 @@ sub next_primer {
         }
     }
 
-    my $primed_seq = Bio::Seq::PrimedSeq->new(-target_sequence => clone($self->{'seqobject'}),
-         -left_primer  => $left_seq,
-         -right_primer => $right_seq,
+    my $primed_seq = Bio::Seq::PrimedSeq->new(
+         -target_sequence => $self->{'seqobject'}->clone,
+         -left_primer     => $left_seq,
+         -right_primer    => $right_seq,
     );
 
     # add data to the the PrimedSeq object that's not specific to the Primers

diff --git a/t/Tools/Primer3.t b/t/Tools/Primer3.t
@@ -8,8 +8,7 @@ BEGIN {
     use lib '.';
     use Bio::Root::Test;
 
-    test_begin(-tests => 14,
-               -requires_module => 'Clone');
+    test_begin(-tests => 14);
 
     use_ok('Bio::Tools::Primer3');
 }