Or maybe someone can help me to help myself by letting me know how I can list all the methods for a Class? This ought to be easy too but I can't see it in my Perl Cookbook or anywhere else either.
> -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] > Behalf Of James > Masters > Sent: 19 September 2006 21:25 > To: rose-db-object@lists.sourceforge.net > Subject: [RDBO] Relationships - can't locate object method > > > Hello, > > I'm hoping some kind person will be able to help me progress to get > relationships working as I've tussled with this problem for > quite some time. > I've set up 2 tables to test with. I've tried to keep it > simple and renamed > everything to adhere to default conventions as given in the > docs. So it > should all be simple stuff. Here is my database setup code: > > use Rose::DB::Object::Loader; > my $loader = Rose::DB::Object::Loader->new( > db => GARD::DB->new(), > class_prefix => 'GARD::', > include_tables => ['books', 'booktypes'] > ); > > $loader->post_init_hook( > sub { > my $meta = shift; > # For class My::Product, try to load My::Product::Extra > my $extra_pm = $meta->class .'::Extra'; > eval "require $extra_pm"; > }); > > my @classes = $loader->make_classes; > > > > The following works fine if the "require_objects" is not included. > > ------------------------------------- > my $searchspec = {query => [title => { like => '%chess%' }], > require_objects > => ['booktype']}; > my $books = GARD::Book::Manager->get_books(%$searchspec); > print @$books." results found<br>"; > ------------------------------------- > > But as it stands, it produces the following error: > > ------------------------------------- > get_objects() - Can't locate object method "booktype" via package > "GARD::Book" at C:/perl/site/lib/Rose/DB/Object.pm line 1428 > Rose::DB::Object::AUTOLOAD('GARD::Book=HASH(0x3f27e18)', > 'GARD::Booktype=HASH(0x3f27f8c)') called at > C:/perl/site/lib/Rose/DB/Object/Manager.pm line 2464 > eval {...} called at > C:/perl/site/lib/Rose/DB/Object/Manager.pm line 1512 > Rose::DB::Object::Manager::get_objects('GARD::Book::Manager', > 'require_objects', 'ARRAY(0x3edbef4)', 'query', 'ARRAY(0x3edc554)', > 'object_class', 'GARD::Book') called at > C:/perl/site/lib/Rose/DB/Object/Manager.pm line 201 > Rose::DB::Object::Manager::__ANON__('GARD::Book::Manager', > 'require_objects', 'ARRAY(0x3edbef4)', 'query', > 'ARRAY(0x3edc554)') called > at db.pl line 320 > main::search_results('books', 'HASH(0x3e10ee8)') called > at db.pl line 56 > main::bread_db() called at > D:/Information/InetPub/gamesboard/cgi-bin/gard.cgi line 31 > ------------------------------------- > > In trying to sort this out I've found two previous > discussions that cite a > similar problem. The first was due to the package in the err > message not > existing but it does seem to - see below. The second was due to an > initialise not being done after the add_relationships in the > Extra Class. > But I believe I do this. Here's the code from GARD/Book/Extra.pm: > > > ------------------------------------- > package GARD::Book::Extra; > GARD::Book->meta->add_relationships( > booktype => { > type => 'many to one', > class => 'GARD::Booktype', > column_map => { booktypecode => 'code' } > } > ); > GARD::Book->meta->initialize(preserve_existing => 1); > ------------------------------------- > > > Here below is the output from showing all the classes that are set up > immediately after the make_classes command: > > > package GARD::Book; > > use strict; > > use base qw(GARD::DB::Object::AutoBase1); > > __PACKAGE__->meta->setup > ( > table => 'books', > > columns => > [ > uid => { type => 'integer', not_null => 1 }, > title => { type => 'varchar', default => '', > length => 255, > not_null => 1 }, > author => { type => 'varchar', default => '', > length => 255, > not_null => 1 }, > publisher => { type => 'varchar', default => '', > length => 255, > not_null => 1 }, > publishyear => { type => 'varchar', default => '', > length => 16, > not_null => 1 }, > origpublished => { type => 'varchar', default => '', > length => 16, > not_null => 1 }, > firstedpublished => { type => 'varchar', default => '', > length => 16, > not_null => 1 }, > edition => { type => 'integer', default => '0', > not_null => > 1 }, > isbn => { type => 'varchar', default => '', > length => 63, > not_null => 1 }, > booktypecode => { type => 'enum', default => '', > not_null => 1, > values => [ '', 'B', 'C', 'M', 'D', 'A' ] }, > gamepages => { type => 'varchar', default => '', > length => 32, > not_null => 1 }, > allgamesenteredby => { type => 'varchar', default => '', > length => 8, > not_null => 1 }, > oldcomment => { type => 'blob', default => '', > length => 65535, > not_null => 1 }, > history => { type => 'enum', default => '', > not_null => 1, > values => [ '', 'Y' ] }, > coverage => { type => 'enum', default => '', > not_null => 1, > values => [ '', 'all', 'think', 'skill', 'thinksp', 'skillsp', 'misc', > 'pub' ] }, > submittercode => { type => 'varchar', default => '', > length => 8, > not_null => 1 }, > ], > > primary_key_columns => [ 'uid' ], > > relationships => > [ > booktype => > { > class => 'GARD::Booktype', > column_map => { booktypecode => 'code' }, > type => 'many to one', > }, > ], > ); > > 1; > > package GARD::Book::Manager; > > use base qw(Rose::DB::Object::Manager); > > use GARD::Book; > > sub object_class { 'GARD::Book' } > > __PACKAGE__->make_manager_methods('books'); > > 1; > > package GARD::Booktype; > > use strict; > > use base qw(GARD::DB::Object::AutoBase1); > > __PACKAGE__->meta->setup > ( > table => 'booktypes', > > columns => > [ > uid => { type => 'integer', not_null => 1 }, > code => { type => 'character', default => '', length => 1, > not_null => 1 }, > description => { type => 'varchar', default => '', length => 64, > not_null => 1 }, > ], > > primary_key_columns => [ 'uid' ], > > relationships => > [ > books => > { > class => 'GARD::Book', > column_map => { code => 'booktypecode' }, > type => 'one to many', > }, > ], > ); > > 1; > > package GARD::Booktype::Manager; > > use base qw(Rose::DB::Object::Manager); > > use GARD::Booktype; > > sub object_class { 'GARD::Booktype' } > > __PACKAGE__->make_manager_methods('booktypes'); > > 1; > > > Thanks for any advice, > > James. > > > -------------------------------------------------------------- > ----------- > Take Surveys. Earn Cash. Influence the Future of IT > Join SourceForge.net's Techsay panel and you'll get the > chance to share your > opinions on IT & business topics through brief surveys -- and > earn cash > http://www.techsay.com/default.php?page=join.php&p=sourceforge &CID=DEVDEV _______________________________________________ Rose-db-object mailing list Rose-db-object@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/rose-db-object ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys -- and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV _______________________________________________ Rose-db-object mailing list Rose-db-object@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/rose-db-object
