use utf8;
use strict;
use warnings;
use boolean;
use JSON;
my $json = JSON->new->allow_nonref->allow_blessed->convert_blessed->relaxed;
my $done;

package Store;

our $debug;
our $scope;
our $data = {};
#tie %$data, 'Tie::IxHash';

sub _log($;$)
{
	return undef unless ($Store::debug||0);
	my $msg = shift;
	my $var = shift;
	my $tag = "[$$ Store]: ";
	print $tag, $msg, "\n";
	use Data::Dumper;
	$Data::Dumper::Useperl = 1;
	$Data::Dumper::Indent = 0;
	$Data::Dumper::Deepcopy = 1;
	$Data::Dumper::Terse = 1;
	$Data::Dumper::Purity = 1;
	$Data::Dumper::Pair = ':';
	$var = Dumper($var) if (defined($var) && ref($var));
	print ' ' x (length($tag)-2), ': ', $var, "\n" if (defined($var));
}

sub _scope(;$)
{
	my $file = (shift||$0);
	$file = substr($file, rindex($file,'/')+1) unless (rindex($file,'/')<0);
	$file = substr($file, 0, index($file,'.pl')) unless (rindex($file,'.pl')<0);
	return $file;
}

sub _get()
{
	my $file = '/tmp/store_'.&_scope($scope).'.json';
	&_log('Read data: '.$file);
	my $size = -s $file;
	unless ($size)
	{
		$done = 1;
		&_log('Read done , empty data');
		return;
	}
	open(JSON, "<", $file);
	read(JSON, my $buff, $size);
	close(JSON);
	$buff = $json->decode($buff);
	$data->{$_} = ($buff->{$_}) foreach (keys %$buff);
	$done = 1;
	&_log('Read done', $data);
}

sub _set()
{
	return unless ($done);
	my $file = '/tmp/store_'.&_scope($scope).'.json';
	&_log('Store data: '.$file);
	open(JSON, ">:utf8", $file);
	print JSON $json->encode($data);
	close(JSON);
}

INIT { &_get(); }

END { &_set(); }

sub new
{
	my $this = shift;
	my $scope = shift;
	my $class = ref($this)||$this;
	$Store::scope = &_scope($scope) if (defined $scope);
	&_log('New instance');
	my $self = {};
	bless $self, $class;
	return $self;
}

sub DESTROY
{
	my $self = shift;
	&_log('Close instance');
}


sub data
{
	my $self; $self = shift if (ref($_[0] eq __PACKAGE__));
	while (my $arg = shift)
	{
		last unless ($arg);
		unless (ref $arg)
		{
			my $val = shift;
			$Store::data->{$arg} = $val;
			next;
		}
		if (ref($arg) eq 'HASH')
		{
			while (my ($k,$v) = each(%$arg))
			{
				$Store::data->{$k} = $v;
			}
			next;
		}
	}
	return $Store::data;
}

$done = 1;
1;