[Dbix-class] copying between databases

[Alan Humphrey]

This is great!  It's really nice to be able to see the API in use.

I'm going to use this as a starting point.  Changes I'll need to make:

1) related objects need to be migrated before the new object is created in
order to avoid foreign key constraint problems in the db.

2) you're right, this is a little insert-happy.  Most of my changes will be
modifications of existing records.  I'll modify the code to use
find_or_create followed by update.  (Hmm.  Just saw update_or_create in the
docs.  I'll have to look at that...)

Thanks for the help!

- Alan

-----Original Message-----
From: dbix-class-bounces at lists.rawmode.org
[mailto:dbix-class-bounces at lists.rawmode.org] On Behalf Of David Kamholz
Sent: Wednesday, February 08, 2006 7:32 PM
To: dbix-class at lists.rawmode.org
Subject: Re: [Dbix-class] copying between databases

This should do it, but it may be a bit more insert-happy than you  
want. It might be good to be able to tell it more precisely where to  
stop. It shouldn't end up in an infinite loop though, at least.

Dave

sub migrate_obj {
     my ($obj,$dest_schema) = @_;
     my $dest_rs = $dest_schema->resultset(ref $obj);
     my $cols = { $obj->get_columns };
     unless ($dest_rs->find($cols)) {
         my $dest_obj = $dest_rs->create($cols);
         _migrate_obj_rels($obj,$dest_obj);
     }
}

sub _migrate_obj_rels {
     my ($obj,$dest_obj) = @_;
     foreach my $rel ($obj->relationships) {
         my $rs = $obj->search_related($rel);
         while (my $rel_obj = $rs->next) {
             my $cols = { $rel_obj->get_columns };
             unless ($dest_obj->find_related($rel, $cols)) {
                 my $dest_rel_obj = $dest_obj->create_related($rel,  
$cols);
                 _migrate_obj_rels($rel_obj,$dest_rel_obj);
             }
         }
     }
}

_______________________________________________
List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
Wiki: http://dbix-class.shadowcatsystems.co.uk/
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/