use warnings; use strict; use Chart::OFC; my ( @data1, @data2, @data3 ); for ( 1 .. 1200 ) { push @data3, 1 + int( rand(7) ); push @data2, 8 + int( rand(6) ); push @data1, 14 + int( rand(6) ); } my $chart = Chart::OFC::Grid->new( title => 'Many data lines', title_style => '{font-size: 20px; color: #736AFF}', datasets => [ Chart::OFC::Dataset::Line->new( values => \@data1, width => 2, color => '#9933CC', label => 'Page Views', text_size => 10, ), Chart::OFC::Dataset::LineWithDots->new( values => \@data2, solid_dots => 1, width => 3, color => '#CC3399', label => 'Downloads', text_size => 10, dot_size => 5, ), Chart::OFC::Dataset::LineWithDots->new( values => \@data3, solid_dots => 0, width => 2, color => '#80a033', label => 'Bounces', text_size => 10, dot_size => 4, ), ], x_axis => Chart::OFC::XAxis->new( labels => [ qw(January February March April May June July August September October November December) ], axis_label => '', orientation => 'horizontal', label_steps => 2, ), y_axis => Chart::OFC::YAxis->new( axis_label => Chart::OFC::AxisLabel->new( label => 'Open Flash Chart', text_size => 12, text_color => '#736AFF', ), min => 0, max => 20, label_steps => 5, ), ); print $chart->as_ofc_data();