You can do this with Class::DBIx and Rose::DB::Object. For example in RDBO: Assume this simple schema:

DROP TABLE public.nodes;
DROP TABLE public.sequences;
DROP TABLE public.taxa;

CREATE TABLE public.taxa (
    id SERIAL NOT NULL PRIMARY KEY
    , common_name CHARACTER(60)
    , UNIQUE (common_name)
);

CREATE TABLE public.nodes (
    id SERIAL NOT NULL PRIMARY KEY
    , description CHARACTER(60)
    , taxon_id INT REFERENCES taxa (id)
);

CREATE TABLE public.sequences (
    id SERIAL NOT NULL PRIMARY KEY
    , description CHARACTER(60)
    , seq TEXT NOT NULL
    , taxon_id INT REFERENCES taxa (id)
);
[download]

Then this perl code:

package MyDB;

use base qw(Rose::DB);

__PACKAGE__->use_private_registry;

__PACKAGE__->register_db(
    driver   => 'pg',
    database => 'mydb',
    host     => 'localhost',
    username => $ENV{USER},
    password => '',
);
1; 

package MyDB::Object;

use MyDB;

use base qw(Rose::DB::Object);

sub init_db { MyDB->new };

1;

package MyDB::Node;

use base qw(MyDB::Object);

__PACKAGE__->meta->table('nodes');
__PACKAGE__->meta->auto_initialize;
__PACKAGE__->meta->make_manager_class('nodes');
1;


package MyDB::Sequence;

use base qw(MyDB::Object);

__PACKAGE__->meta->table('sequences');
__PACKAGE__->meta->auto_initialize;
__PACKAGE__->meta->make_manager_class('sequences');

1;

package MyDB::Taxon;

use base qw(MyDB::Object);

__PACKAGE__->meta->table('taxa');
__PACKAGE__->meta->auto_initialize;

1;



my $t = MyDB::Taxon->new(common_name => 'Homo Sapiens');
$t->add_sequences({ description => '1', seq => 'AA'},
                  { description => '2', seq => 'GG'},);
$t->add_nodes({ description => '1', }, );
$t->save;

# a little bit more complicated than necessary just
# to demonstrate queries
my $nodes = MyDB::Node::Manager->get_nodes(
        query => [ 'taxon.id' => $t->id],
        require_objects => [ 'taxon'],
    );

foreach my $node (@$nodes) {
    print "NODE: ". $node->description . ' '
          . $node->taxon->common_name . "\n";
};

my $seqs = MyDB::Sequence::Manager->get_sequences(
        query => [ 'taxon_id' => $t->id],
    );

foreach my $seq (@$seqs) {
    print "SEQ: ". $seq->description . ' '
          . $seq->taxon->common_name . "\n";
};

# change taxon
$nodes->[0]->taxon(MyDB::Taxon->new(common_name=>'Guppy'));
$nodes->[0]->save;

# old taxon
$nodes->[0]->taxon($t);
#$nodes->[0]->save;
[download]

...does want you want I think. Or not? Is there a reason why you want to write your own OO mapper (you said you will have an underlying database)? Update: Fixed Idention

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.