#!/usr/bin/perl -w BEGIN { unshift @INC, 'lib', '../lib'} use Chart::LinesPoints; use File::Temp 0.19; my $samples = File::Temp->newdir(); print "1..1\n"; $g = Chart::LinesPoints->new; $g->add_dataset( 'foo', 'bar', 'junk', 'ding', 'bat' ); $g->add_dataset( 3, 4, 9, 3, 4 ); $g->add_dataset( 8, 4, 3, 4, 6 ); $g->add_dataset( 5, 7, 2, 7, 9 ); $g->set( 'title' => 'Lines and Points Chart' ); $g->set( 'legend' => 'bottom' ); $g->png("$samples/linespoints.png"); print "ok 1\n"; exit(0);