Баг ОРМ'а

Вкратце, баг касается переиспользования объекта, созданного с использованием параметра obj_new =1. Актуально при маппинге на таблицы с первичным ключом без auto_inctement. В этом случае после использования $obj->save(), значение ключа "убивается" и $obj->getID() выдает значение 0. Соответственно, при следующей попытке сохранения, в базе создается новая запись, соответствующая данному значению ключа (id=0), вместо ожидаемого апдейта существующей.

Ниже приведен пример, позволяющий убедиться в данной неприятности.

1) Таблица в БД:

CREATE TABLE `test` (
`id` int(11) NOT NULL,
`some_value` varchar(255),
PRIMARY KEY (`id`)
) ENGINE=InnoDB DEFAULT CHARSET=koi8r;

2) ОРМ:

package Rutube::Obj::Test;

use warnings;
use strict;

use Rutube::Object;
use base qw[Rutube::Object];


mapper( '-table' => 'test', '-key' => 'id' );
set_property_type('db');

property('id');
property('some_value');


1;

__END__

3) Тестовый скрипт:

#!/usr/bin/perl -w

use strict;
use warnings;

use lib qw|../lib|;
use Rutube::Config;
use Rutube::ObjectRegistry;

use Rutube::Obj::Track;

my $conf = Rutube::Config->new('../conf/.config');
Rutube::ObjectRegistry->setNamespace('offline');

use Rutube::Obj::Test;

my $obj = Rutube::Obj::Test->new({id => 123, some_value => 'asdf'}, {obj_new => 1});
printf "[id=%3d|some_value=%s]\n", $obj->getID(), $obj->getSomeValue();
# [id=123|some_value=asdf]

$obj->save();
printf "[id=%3d|some_value=%s]\n", $obj->getID(), $obj->getSomeValue();
# [id= 0|some_value=asdf]

$obj->setSomeValue("qwerty");
$obj->save();
printf "[id=%3d|some_value=%s]\n", $obj->getID(), $obj->getSomeValue();
# [id= 0|some_value=qwerty]

exit 1;

4) Имеем в результате:

id	some_value
0	qwerty
123	asdf