#!/usr/bin/perl

use PDF::API2;
use PDF::API2::Chart::Pie;

$pdf=PDF::API2->new;

$font=$pdf->corefont('Helvetica',1);

$page = $pdf->page;
$page->mediabox(595,842);

$pie=$page->piechart(
  -x => 100, -y => 400, 
  -h => 400, -w => 400, 
  -labelfont => $font, -labelsize =>10,
  -colors=>['red','blue','green','yellow','cyan'],
  -startangle=>45,
);

$pie->set_data(50,25,13,6,6);
$pie->set_label('50%','25%','13%','6%','6%');
$pie->set_description('data1','data2','data3','data4','data5');
$pie->finish;


$pdf->saveas("$0.pdf");
$pdf->end();
exit;

__END__
