VPF::Возвращается значение вместо ссылки на объект

GoDleSS

Дата 18.5.2008, 09:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 11.2.2007
Где: Пироговский

Репутация: 2
Всего: 2

На ру-борде пока ничего полезного не сказали, посему прошу помощи и тут.

Есть скрипт, в нем присутствует некий код:

Код


my $variable = try { 
                           table_class->by_condition($self->dbh(), $identified_by . ' =? ', $value); 
                       } catch NoObjectException with { 
                           throw Exception( $entry->{name}, '**'); 
                       };

table_class наследует методы одного из ремейков либы Storable
В самой либе Storable есть метод by_condition , который возвращает ссылку на объект
table_class по базе Storable

Код


sub by_condition { 
    my $class = shift; 
    $class = ref( $class) || $class; 
    my( $dbh, $cond, @bind_values) = @_; 
 
... 
... 
... 
 
    $self; 
}

Но в одном из скриптов(в остальных подобные вызовы ведут себя адекватно), вместо ссылки на объект приходит числовое значение, равное третьему параметру вызова или идентификатору (ключу) в таблице(в данном случае они идентичны, т.к. выбор и идет по идентификатору).

Есть у кого-нибудь хоть какие-либо идеи - откуда такое может ползти и почему?

--------------------

It's a nice day to die my friend!

sir_nuf_nuf

Дата 18.5.2008, 17:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 6.1.2008

Репутация: 14
Всего: 31

Такое может ползти из:
1) римейка библиотеки Storable
2) класса который наследуется
3) от его кривого взаимодействия с предком.

не смотря в код сказать _ничего_ нельзя

присылайте ссылки на ваш класс и на либу

--------------------

GoDleSS

Дата 18.5.2008, 18:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 11.2.2007
Где: Пироговский

Репутация: 2
Всего: 2

sir_nuf_nuf, постараюсь выложить завтра что могу, но могу мало, т.к. ремейки корпоративные и права выкладывать код компании не имею права.
Если конечно не решу проблему сам smile

--------------------

It's a nice day to die my friend!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »