view release on metacpan or  search on metacpan

examples/radial.pl  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;

use GD::Chart::Radial;

my $chart = GD::Chart::Radial->new(500,500,1);

my $max = 31;

$chart->set(
	    legend            => [qw/april may/],
	    title             => 'Some simple graph',
	    y_max_value       => $max,
	    y_tick_number     => 5,
	   );

my @data = ([qw/A B C D E F G/],[12,21,23,30,23,22,5],[10,20,21,24,28,15,9]);

$chart->plot(\@data);

open(IMG, '>test.jpg') or die $!;
binmode IMG;
print IMG $chart->jpg;
close IMG