Imager::Graph::Pie

• Pie Charts

my @labels = ('1st', '2nd', '3rd', '4th');
my @data = (1, 2, 3, 4);

my $font = Imager::Font->new(face => 'Arial');
my $pie = Imager::Graph::Pie->new();
my $img = $pie->draw(
            data=>\@data, labels=>\@labels, font=>$font,
            title=>{ text=>'A graph', size=>32 },
            features=>{ outline=>1, labels=>1,
                    pieblur=>0 },
            outline=>{ line => '404040' },
          ) or print "# ",$pie->error,"\n";
$img->write(file=>"pie.png")