use warnings;
use strict;
use Devel::Size 'total_size';
$Devel::Size::warn = 0;
use Test::LeakTrace;
use JE;

leaktrace {
	my $j = JE->new;
	$j->eval('function foo (x) { return x / 10; }');
	my $rv = 0+$j->{foo}->(50);
};

my $j = JE->new;
print total_size($j), "\n";  # e.g. 434280
$j->eval('function foo (x) { return x / 10; }');
print total_size($j), "\n";  # e.g. 440614
for (1..100_000) {
	my $rv = 0+$j->{foo}->(50);
}
print total_size($j), "\n";  # e.g. 441601