#!/usr/bin/perl -w

use strict;
use Data::Dumper;

use lib '/home/uwe/tmp/cvs/rose/modules/Rose-DB/lib';
use Rose::DB;
use lib '/home/uwe/tmp/cvs/rose/modules/Rose-DB-Object/lib';
use Rose::DB::Object::Manager;

BEGIN {
    Rose::DB->register_db(domain   => 'default',
                          type     => 'default',
                          driver   => 'mysql',
                          database => 'Rose',
                          username => 'uwe',
                          password => 'uwe',
                         );
}

use lib './lib';
use Category;
use Price;
use Product;


my %rose  = (object_class    => 'Product',
             require_objects => [qw(prices)],
             with_objects    => [qw()],
             clauses         => [],
             query           => [],
            );

print Dumper($rose{clauses});

my $count    = Rose::DB::Object::Manager->get_objects_count(%rose);

print Dumper($rose{clauses});