3 use Benchmark qw(:hireswallclock countit);
6 my $im = Imager->new(xsize => 1000, ysize => 1000);
7 my $ima = $im->convert(preset => "addalpha");
8 my $im_pal = Imager->new(xsize => 1000, ysize => 1000, type => "paletted");
9 my @colors = map Imager::Color->new($_), qw/red green blue white black/;
10 $im_pal->addcolors(colors => \@colors);
11 my $color = $colors[0];
12 my $other = Imager::Color->new("pink");
18 my $temp = $im->convert(preset => "grey")
22 my $temp = $im->convert(preset => "green")
26 my $temp = $im->convert(preset => "addalpha")
30 my $temp = $ima->convert(preset => "noalpha")
36 $im_pal->type eq "paletted" or die "Not paletted anymore";
39 my ($limit, $what) = @_;
41 for my $key (sort keys %$what) {
42 my $bench = countit($limit, $what->{$key});
43 printf "$key: %.1f /s (%f / iter)\n", $bench->iters / $bench->cpu_p,
44 $bench->cpu_p / $bench->iters;
52 addalpha: 1.3 /s (0.797143 / iter)
53 gray: 4.3 /s (0.233636 / iter)
54 green: 4.9 /s (0.205600 / iter)
55 noalpha: 1.6 /s (0.608889 / iter)
59 addalpha: 4.9 /s (0.205600 / iter)
60 gray: 4.2 /s (0.235909 / iter)
61 green: 8.6 /s (0.115682 / iter)
62 noalpha: 5.4 /s (0.185556 / iter)