view release on metacpan or  search on metacpan

t/www/chart.cgi  view on Meta::CPAN

my @hours = 0 .. 23;

my @set1 = rand_numbers;
my @set2 = rand_numbers;
my @set3 = rand_numbers;

$obj->add_dataset(@hours);
$obj->add_dataset(@set1);
$obj->add_dataset(@set2);
$obj->add_dataset(@set3);
$obj->cgi_png;