#!/usr/bin/perl -w BEGIN { unshift @INC, 'lib', '../lib'} use Chart::Composite; use File::Temp 0.19; my $samples = File::Temp->newdir(); print "1..1\n"; $g = Chart::Composite->new(); $g->add_dataset( 'foo', 'bar', 'junk', 'whee' ); $g->add_dataset( 3, 4, 9, 10 ); $g->add_dataset( 8, 6, 1, 11 ); $g->add_dataset( 5, 7, 2, 12 ); $g->add_dataset( 2, 5, 7, 2 ); $g->set( 'legend' => 'left' ); $g->set( 'title' => 'Composite Chart', 'composite_info' => [ [ 'Bars', [ 1, 2 ] ], [ 'LinesPoints', [ 3, 4 ] ] ] ); $g->set( 'y_label' => 'y label 1', 'y_label2' => 'y label 2' ); $g->set( 'colors' => { 'y_label' => [ 0, 0, 255 ], y_label2 => [ 0, 255, 0 ], 'dataset0' => [ 0, 127, 0 ], 'dataset1' => [ 0, 0, 127 ], 'dataset8', => [ 0, 255, 0 ], 'dataset9' => [ 255, 0, 0 ] } ); $g->set( 'brush_size2' => 1 ); $g->png("$samples/composite.png"); print "ok 1\n"; exit(0);