Perl DBIx :: Class - Значения по умолчанию при использовании new()?

Question

При использовании метода new() для источника данных DBIx :: Class ResultSource для создания (потенциально временной) переменной он, похоже, не заполняет атрибуты значениями по умолчанию, указанными в схеме DBIC (которые мы указали для создания таблиц из этой схемы).

В настоящее время мы создаем одно значение по умолчанию для одного такого класса (первый случай, когда это было проблемой) с

sub new { 
    my $class = shift; 
    my $self = $class->next::method(@_); 
    $self->queue('DEFAULT_QUEUE_VAL') unless $self->queue(); 
    return $self; 
} 

в этом классе (то есть, очередь атрибут => DEFAULT_QUEUE_VAL). Однако в долгосрочной перспективе у нас есть несколько классов DBIC, которые имеют разные значения по умолчанию, и мы бы хотели избежать повторения описанной выше логики для всех различных случаев.

Доступны ли модули CPAN/плагины для этого? Мы не видели в нашем (по общему признанию, беглого) поиска CPAN.

Редактировать: исправлено некоторое количество мусора в образце кода; оказывается, я cp'd из устаревшего кода.

Answer 1

похоже, что нет DBIC компонент для этого, вы можете сделать это с небольшой мод в существующий код, хотя:

sub new { 
    my $class = shift; 
    my $self = $class->next::method(@_); 
    foreach my $col ($self->result_source->columns) { 
    my $default = $self->result_source->column_info($col)->{default_value}; 
    $self->$col($default) if($default && !defined $self->$col()); 
    return $self; 
} 

Как именно это прямо вперед, нет особого смысла для компонент.

Answer 2

- это не ваша очередь вызова кода() как метод класса, а не метод объекта? вы имели в виду

$new->queue('DEFAULT_QUEUE_VAL') unless $new->queue(); 

?

редактировать - извините, просто перечитайте вопрос, и предполагают, что это просто опечатка

мысль - если значение по умолчанию находится в схеме SQL, то вам нужно установить его в объекте, а также ? если вы пройдете через NULL (undef), вы получите значение по умолчанию в таблице и чтобы отразить это в наборе объектов, метод подкласса new() для повторного чтения строки db (-> discard_changes() будет делать это i думаю)

Answer 3

Другим подходом было бы иметь «сохраненное» поле в базе данных, которое вы отмечаете, когда вы его сохранили. вы можете использовать представления, чтобы различать сохраненные объекты и новые.

Этот подход будет медленнее, но позволит вам выбрать DATETIME или другие специфичные по БД значения по умолчанию, которые могут иметь проблемы с вышеуказанным ответом.