Select Code to Download

|-------------------|       |-------------------|
|  TBL NAME = Article   |       |  TBL NAME = Author  |     
...
| title varchar(255)        |       | author  varchar(32)    |
|other fields                  |       | other fields                |
---------------------      ---------------------

$article->author

package MPDatabase::Article;

...
__PACKAGE__->might_have( author_class => 'MPDatabase::Author' => qw/au
+thor email/);

1;

package MPDatabase::Author;

...
__PACKAGE__->has_many(articles => 'MPDatabase::Article');

1;

!/usr/bin/perl -w
#
...
print $article->author, "\n";

# This program does not produce any output

<--- parse_params
mysql_st_internal_execute
Binding parameters: SELECT authorid
FROM   author
WHERE  authorid = '5'

SELECT authorId
FROM author A, article B
WHERE A.authorID = B.authorId and B.articleId = 5