1#!/usr/bin/perl -w 2 3use Chart::Points; 4 5print "1..1\n"; 6 7$g = Chart::Points->new; 8$g->add_dataset( 1, 2, 7, 10, 15, 19, 20 ); 9$g->add_dataset( -3, 0, 8, 4, 2, 1, 0 ); 10 11@hash = ( 12 'title' => 'Points Chart 3', 13 14 # 'type_style' => 'donut', 15 'png_border' => 10, 16 'precision' => 0, 17 'min_val' => 0, 18 19 #'max_val' => 0, 20 'include_zero' => 'true', 21 'xy_plot' => 'true', 22); 23 24$g->set(@hash); 25 26$g->png("samples/points_3.png"); 27 28print "ok 1\n"; 29 30exit(0); 31 32