64100ee2 TC |
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)' }); |