use strict;
use Chart::Clicker;
use Chart::Clicker::Data::Series;
use Chart::Clicker::Data::DataSet;

my $cc = Chart::Clicker->new;
my $series = Chart::Clicker::Data::Series->new(
    values    => [ 1, 2, 3, 4, 5],
    keys      => [
         20161201, 20161201, 20161202, 20161203,20161204
    ],
);
my $ctx = $cc->get_context('default');
$ctx->domain_axis->format('%s');
my $ds = Chart::Clicker::Data::DataSet->new(series => [ $series ]);
$cc->add_to_datasets($ds);
$cc->write_output('foo.png');


##</code><code>##

$ctx->domain_axis(Chart::Clicker::Axis->new(position => 'bottom', orientation  => 'horizontal',format => '%s'));