Although this is quite old, I just offer my solution which might be helpful for another future reader, as this one made me known with the Row->copy() and the Journal module. But none of both really helped me.

My problem was the following. Every row has a marker column to mark it as active, history rows are saved in the same table, every row has a timestamp. So I have to copy the current active row, set the active marker to 0 and insert a new copy with the current timestamp and active marker as 1. Here my shortened code:

my $upd_code_with_history = sub {
    my $record = $resultset->find(\%key);
    # save unchanged Data for new row
    my %data   = $record->get_columns;

    # modify the existing row
    $record->set_column( 'active_marker', 0);
    $record->update;

    # now update the saved row data which the changes
    foreach my $key(keys %values) {
        $data{$key} = $values{$key};
    }
    $data{'timestamp_col'} = \['CURRENT TIMESTAMP']; # DB2
    my $new_row = $resultset->create (\%data );      # insert
}; # ende Coderef $upd_code_with_history
[download]

This gives two SQL statements, which is fine as I have to change differnet columns in two rows.