<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2900.2995" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face="Courier New" size=2><SPAN class=172533315-23112006>Hello
everyone,</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006></SPAN></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN class=172533315-23112006>I cannot
seem to get a simple DBIx::Class setup to work. I was wondering if
anyone</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN class=172533315-23112006>sees what I
am doing wrong...</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006></SPAN></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006>---</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN class=172533315-23112006>In
"lib/MySchema.pm":</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006></SPAN></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>package MySchema;</FONT></DIV>
<DIV><FONT face="Courier New" size=2>use base
qw(DBIx::Class::Schema);</FONT></DIV>
<DIV><FONT face="Courier New"
size=2>__PACKAGE__->load_classes();</FONT></DIV>
<DIV><BR><FONT face="Courier New" size=2>1;</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006>---</SPAN></FONT></DIV>
<DIV><SPAN class=172533315-23112006><FONT face="Courier New" size=2>In
"lib/MySchema/Author.pm":</FONT></SPAN></DIV>
<DIV><SPAN class=172533315-23112006><FONT face="Courier New"
size=2></FONT></SPAN> </DIV>
<DIV><FONT face="Courier New" size=2>package MySchema::Author;</FONT></DIV>
<DIV><FONT face="Courier New" size=2>use base qw(DBIx::Class);</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>__PACKAGE__->load_components(qw(PK::Auto
Core));<BR>__PACKAGE__->table('authors');<BR>__PACKAGE__->add_columns(qw(id
first_name last_name));<BR>__PACKAGE__->set_primary_key(qw(id));</FONT></DIV>
<DIV><BR><FONT face="Courier New" size=2>__PACKAGE__->has_many(book_authors
=> 'MySchema::BookAuthor', 'author_id');</FONT></DIV>
<DIV><FONT face="Courier New" size=2>__PACKAGE__->many_to_many(books =>
'book_authors', 'book');</FONT></DIV>
<DIV><BR><FONT face="Courier New" size=2>1;</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006>---</SPAN></FONT></DIV>
<DIV><SPAN class=172533315-23112006><FONT face="Courier New" size=2>In
"lib/MySchema/Book.pm":</FONT></SPAN></DIV>
<DIV><SPAN class=172533315-23112006><FONT face="Courier New"
size=2></FONT></SPAN> </DIV>
<DIV><FONT face="Courier New" size=2>package MySchema::Book;</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>use base qw(DBIx::Class);</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>__PACKAGE__->load_components(qw(PK::Auto
Core));<BR>__PACKAGE__->table('books');<BR>__PACKAGE__->add_columns(qw(id
title rating));<BR>__PACKAGE__->set_primary_key(qw(id));</FONT></DIV>
<DIV><BR><FONT face="Courier New" size=2>__PACKAGE__->has_many(book_authors
=> 'MySchema::BookAuthor', 'book_id');</FONT></DIV>
<DIV><FONT face="Courier New" size=2>__PACKAGE__->many_to_many(authors =>
'book_authors', 'author');</FONT></DIV>
<DIV><BR><FONT face="Courier New" size=2>1;</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006>---</SPAN></FONT></DIV>
<DIV><SPAN class=172533315-23112006><FONT face="Courier New" size=2>In
"lib/MySchema/BookAuthor.pm":</FONT></SPAN></DIV>
<DIV><SPAN class=172533315-23112006><FONT face="Courier New"
size=2></FONT></SPAN> </DIV>
<DIV><FONT face="Courier New" size=2>package MySchema::BookAuthor;</FONT></DIV>
<DIV><FONT face="Courier New" size=2>use base qw(DBIx::Class);</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>__PACKAGE__->load_components(qw(PK::Auto
Core));<BR>__PACKAGE__->table('book_authors');<BR>__PACKAGE__->add_columns(qw(book_id
author_id));<BR>__PACKAGE__->set_primary_key(qw(book_id
author_id));</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2>__PACKAGE__->belongs_to(book =>
'MySchema::Book', 'book_id');</FONT></DIV>
<DIV><FONT face="Courier New" size=2>__PACKAGE__->belongs_to(author =>
'MySchema::Author', 'author_id');</FONT></DIV>
<DIV><BR><FONT face="Courier New" size=2>1;</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006>---</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN class=172533315-23112006>In
"test.pl":</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006></SPAN></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006>#!/usr/bin/perl</SPAN></FONT></DIV>
<DIV><FONT face="Courier New"></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN class=172533315-23112006>use
strict;<BR>use warnings;<BR>use lib 'lib';<BR>use MySchema;</SPAN></FONT></DIV>
<DIV><FONT face="Courier New"></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN class=172533315-23112006>my $schema =
MySchema->connect('DBI:mysql:database=MyApp;host=localhost;port=3306',
'testuser', 'testpass', { PrintError => 0, RaiseError => 1, AutoCommit
=> 0 });</SPAN></FONT></DIV>
<DIV><FONT face="Courier New"></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN class=172533315-23112006>my @books =
$schema->resultset->('Book')->all;<BR></SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006>---</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN class=172533315-23112006>I get these
errors which I cannot understand:</SPAN></FONT></DIV>
<DIV><FONT face="Courier New"><FONT size=2><SPAN
class=172533315-23112006> </DIV></SPAN></FONT></FONT>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006>[hermida@dla2 test]$ ./test.pl <BR>Use of uninitialized
value in exists at /usr/lib/perl5/site_perl/5.8.5/DBIx/Class/Schema.pm line
146.<BR>Use of uninitialized value in hash element at
/usr/lib/perl5/site_perl/5.8.5/DBIx/Class/Schema.pm line 149.<BR>Use of
uninitialized value in concatenation (.) or string at
/usr/lib/perl5/site_perl/5.8.5/DBIx/Class/Schema.pm line
150.<BR>DBIx::Class::Schema::resultset(): Can't find source for at
./test.pl line 10<BR>[hermida@dla2 test]$ </SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006></SPAN></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006></SPAN></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN class=172533315-23112006>Thank you
for your help,</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006></SPAN></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN class=172533315-23112006>Leandro
Hermida</SPAN></FONT></DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006></SPAN></FONT> </DIV>
<DIV><FONT face="Courier New" size=2><SPAN
class=172533315-23112006></SPAN></FONT> </DIV>
<DIV><FONT face="Courier New"><FONT size=2><SPAN
class=172533315-23112006> </DIV></SPAN></FONT></FONT></BODY></HTML>