# Acesta este un exemplu demontrativ care folosește modulele reunite în pachetul Chart-v2.403.9
# Acest pachet de module poate fi instalat din meta::cpan conform instrucțiunilor
# de la această adresă: https://metacpan.org/pod/Chart 
# O serie de exemple sunt disponibile aici: https://metacpan.org/dist/Chart/view/lib/Chart/Manual/Types.pod

use strict;
use Chart::Lines;
use Chart::Pie;

my $chart = new Chart::Lines(800, 600);
$chart->add_dataset('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul','Aug', 'Sep', 'Oct', 'Nov', 'Dec');
$chart->add_dataset(46, 50, 56, 61, 67, 73, 79, 79, 74, 63, 51, 46);
$chart->add_dataset(37, 39, 41, 44, 49, 53, 57, 58, 55, 48, 42, 37);
$chart->png('Lines.png');

my $g = Chart::Pie->new(800, 600);
$g->add_dataset( qw/eins zwei drei vier fuenf sechs sieben acht neun zehn/ );
$g->add_dataset( 120, 50, 100, 80, 40, 45, 150, 60, 110, 50 );
$g->set( 'title'               => 'Pie\nDemo Chart',
         'legend'              => 'bottom',
         'legend_label_values' => 'value',
         'label_values'        => 'percent',
         'legend_lines'        => 'true',
         'ring'                => 0.35, 
);
$g->png("Pie.png");