bench/copy.bench

   1 #!perl -w
   2 use Imager qw(:all);
   3 use Benchmark;
   4
   5 # a basic benchmark to test how much faster it is to work line by line
   6 $im1 = Imager::ImgRaw::new(200,200,3);
   7 $im2 = Imager::ImgRaw::new(200,200,3);
   8
   9 timethese(-5,
  10         { copy => 'Imager::i_copy($im2, $im1)' });