Subversion Repositories DevTools

########################################################################
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
#
# Module name   : jats_db_play_01.pl
# Module type   : JATS Utility
# Compiler(s)   : Perl
# Environment(s): jats
#
# Description   : 
#
# Usage         : See POD at the end of this file
#
#......................................................................#

require 5.008_002;
use strict;
use warnings;

use Pod::Usage;
use Getopt::Long;

use JatsError;
use TrivialDataStore;


my $stuff =  TrivialDataStore->new('xxx');
$stuff->add('cccc', 'dddd');
$stuff->dump();

my $bb = $stuff->getStore();
$bb->{'Test'} = 12;
$bb->{'Hash'} = {aaaa => 12, bbbbb => 13};

$bb = $stuff->getStore('cccc');
DebugDumpData("bb", $bb);

push @{$bb}, 1212;

my $data = $stuff->get('aaaa');
#DebugDumpData("data", $data);
#Error ("Just Testing");


#
#
#use Storable qw(store retrieve freeze thaw dclone);
#
#if (-f 'file')
#{
#    $DATA = retrieve('file');
#    DebugDumpData("StartDATA", $DATA);
#}
#
#push @{$DATA->{MORE}}, 'more';
#push @{$DATA->{MORE}}, 'and_more';
#
#store ($DATA, 'file') || Error ("Store error");
#
#DebugDumpData("DATA", $DATA);