Add two benchmarks

benchmark/method.pl

@@ -0,0 +1,35 @@
+#!perl -w
+
+use strict;
+
+use Benchmark qw(:all);
+
+use Data::Clone;
+
+BEGIN{
+    package Object;
+    sub new {
+        my $class = shift;
+        return bless { @_ }, $class;
+    }
+    package DC;
+    use Data::Clone qw(clone);
+    our @ISA = qw(Object);
+}
+
+my %args = (
+    foo => 42,
+    inc => { %INC },
+);
+
+my $o  = DC->new(%args);
+
+print "Method vs. Function:\n";
+cmpthese -1 => {
+    'method' => sub{
+        my $x = $o->clone;
+    },
+    'function' => sub{
+        my $x = clone($o);
+    },
+};

benchmark/vs_fast.pl

@@ -0,0 +1,43 @@
+#!perl -w
+
+use strict;
+
+use Benchmark qw(:all);
+
+use Clone::Fast ();
+use Clone ();
+use Data::Clone ();
+
+my @array = (
+    [1 .. 10],
+    [1 .. 10]
+);
+
+print "ArrayRef:\n";
+cmpthese -1 => {
+    'Clone' => sub{
+        my $x = Clone::clone(\@array);
+    },
+    'Clone::Fast' => sub{
+        my $x = Clone::Fast::clone(\@array);
+    },
+    'Data::Clone' => sub{
+        my $x = Data::Clone::clone(\@array);
+    },
+};
+
+my %hash = (
+    key => \@array,
+);
+print "HashRef:\n";
+cmpthese -1 => {
+    'Clone' => sub{
+        my $x = Clone::clone(\%hash);
+    },
+    'Clone::Fast' => sub{
+        my $x = Clone::Fast::clone(\%hash);
+    },
+    'Data::Clone' => sub{
+        my $x = Data::Clone::clone(\%hash);
+    },
+};