use strict;
use warnings;
use Hypatia;
use Scalar::Util qw(blessed);

my $hypatia=Hypatia->new({
    back_end=>"Chart::Clicker",
    graph_type=>"Line",
    input_data=>{"a1"=>[1..10],"a2"=>[2,6,5,-7,1.4,9,9,0,8,2.71828]},
    columns=>{"x"=>"a1","y"=>"a2"},
});

my $cc=$hypatia->chart;

$cc->title->text("This is a line chart");
my $dc=$cc->get_context("default");
$cc->write_output("line.png");