<![CDATA[
#!perl -w
use strict;
use Boulder::Store;
my $store=new Boulder::Store('test.db',1);
my $s = new Stone (Name=>'george',
Age=>23,
Sex=>'M',
Address=>{
Street=>'29 Rockland drive',
Town=>'Fort Washington',
ZIP=>'77777'
}
);
$store->put($s);
$store->put(new Stone(Name=>'fred',
Age=>30,
Sex=>'M',
Address=>{
Street=>'19 Gravel Path',
Town=>'Bedrock',
ZIP=>'12345'},
Phone=>{
Day=>'111-1111',
Eve=>'222-2222'
}
));
$store->put(new Stone(Name=>'andrew',
Age=>18,
Sex=>'M'));
$store->add_index('Name');
my $stone = $store->get(0);
print "name = ",$stone->Name;
exit(0);
]]>