#!/usr/bin/perl
use Objects::Collection::AutoSQL;
use Data::Dumper;
use DBI;
use Test::More qw(no_plan);
use strict;
my $DSN = "mysql:database=orders;host=localhost;";
my $dbh =
  DBI->connect( "DBI:$DSN", 'root', 'zreboot36',
    { RaiseError => 0, PrintError => 1, AutoCommit => 0 } )
  or die $DBI::errstr;
my $beers = new Objects::Collection::AutoSQL::
  dbh     => $dbh,          #database connect
  table   => 'beers',    #table name
  field   => 'bid',         #key field (IDs), usually primary,autoincrement
  cut_key => 1;             #delete field mid from readed records,
                            #or delete_key=>1
#  sub_ref =>
#
#  #callback for create objects for readed records
#  sub { my $id = shift; new MyObject:: shift }
# ok($beers,"create object");
 my $created_rec = 
 $beers->create(bcount=>1,bname=>'heineken');
 $beers->create(bcount=>1,bname=>'broadside');
 $beers->create(bcount=>2,bname=>'tiger');
 $beers->create(bcount=>2,bname=>'castel');
 $beers->create(bcount=>3,bname=>'karhu');
 ok($created_rec,"create record");
 $beers->release_objects;
=pod
 my $hash1 = $beers->fetch_objects({bcount=>2});
 print Dumper($hash1);

 my $hash2 = $beers->fetch_objects({bcount=>[3,2]});
 print Dumper($hash2);
=cut

 my $heineken = $beers->fetch_object(1);
 print Dumper($heineken);
 $heineken->{bcount}++;

 my $karhu = $beers->fetch_object(5);
 $karhu->{bcount}++;
 
 $beers->store_changed;

 my $hash1 = $beers->fetch_objects({bcount=>[4,1]});
 print Dumper($hash1);

$dbh->disconnect;