[imager.git] / bench / copy.bench

#!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)' });
Commit	Line	Data
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)' });