#!perl

#
# A very simple demo script, illlustrating how to use the RDO::Loader.
#

use strict;
use warnings;

use Moose::DB;
use Rose::DB::Object::Loader;

use Data::Dumper;

my $loader = Rose::DB::Object::Loader->new(db => Moose::DB->new(),
					   class_prefix => 'Moose::DB');

#$loader->make_classes(with_relationships => 1);
$loader->make_modules(with_relationships => 1,
		      module_dir => "/tmp",
		     );

my $pair1;
my $pair2;
$pair1 = Moose::DB::Pair->new(name => "pairA");
$pair1->save();
$pair2 = Moose::DB::Pair->new(name => "pairB");
$pair2->save();

my $gset;
$gset = Moose::DB::Gset->new(name => "gsetA");
$gset->save();
$gset = Moose::DB::Gset->new(name => "gsetB");
$gset->save();

$gset->add_gset_member({name => "memberA", pair => $pair1->id});
$gset->add_gset_member({name => "memberB", pair => $pair2->id});
$gset->save();

#$pair1->add_gset_member({name => "pmA", gset => $gset->id});
#$pair1->save();

exit(0);

################################################################
## end of main()
################################################################

