simple benchmark for image copying

diff --git a/bench/copy.bench b/bench/copy.bench
new file mode 100644 (file)
index 0000000..045fc46
--- /dev/null
+++ b/bench/copy.bench
@@ -0,0 +1,10 @@
+#!perl -w
+use Imager qw(:all);
+use Benchmark;
+
+# a basic benchmark to test how much faster it is to work line by line
+$im1 = Imager::ImgRaw::new(200,200,3);
+$im2 = Imager::ImgRaw::new(200,200,3);
+
+timethese(-5,
+       { copy => 'Imager::i_copy($im2, $im1)' });