add new comparison method rgb_difference that resembles arithmetical difference per...
[imager.git] / 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)' });