#!/usr/bin/perl
use strict;
use Chart::Clicker;
use Chart::Clicker::Context;

use Chart::Clicker::Data::Range;
use Chart::Clicker::Renderer::Bubble;
use Chart::Clicker::Data::DataSet;
use Chart::Clicker::Data::Series::Size;
print "run 'top' in linux and look in perl process!\n";
my $j = 100000000;
for (my $i =1;$i < $j;$i+=1){
	print "$i iteration\n";
	mysub($i);
}
sub mysub{
	my ($var_i) = @_;
	my @k = (1,2,3);

	my $cc = Chart::Clicker->new(width => 800, height => 400 , format => 'png', padding => 10);
	my $series = Chart::Clicker::Data::Series::Size->new(
		keys => \@k,
		values => \@k,
		sizes => \@k,
		name => "$var_i",
	);
	my $ds = Chart::Clicker::Data::DataSet->new(
		series => [ $series ]
	);
	$cc->add_to_datasets($ds);

	my 	$defctx = $cc->get_context('default');
		$defctx->renderer(Chart::Clicker::Renderer::Bubble->new);
	$cc->write_output($var_i);
	#undef $cc;
	print "\tmemory leak after 'cc->write_output'\n";
}