Perl DBIx :: Class - wartości domyślne przy użyciu new()?

Question

Podczas korzystania z metody new() w obiekcie wynikowym źródła danych DBIx :: Class do utworzenia (potencjalnie tymczasowej) zmiennej, wydaje się, że nie wypełnia ona atrybutów wartościami domyślnymi określonymi w schemacie DBIC (który określono dla tworzenia tabel z tego schematu).

Obecnie tworzenia jednej wartości domyślnej dla jednego z tych kategorii (to pierwszy przypadek, gdy jest to problem) z

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

w tej klasie (np kolejka atrybut => DEFAULT_QUEUE_VAL). Jednak w dłuższej perspektywie mamy kilka klas DBIC, które mają różne wartości domyślne, i chcielibyśmy uniknąć replikacji powyższej logiki dla wszystkich różnych przypadków.

Czy są dostępne jakieś moduły/wtyczki CPAN? Nie widzieliśmy żadnego w naszych (wprawdzie pobieżnych) poszukiwaniach CPAN.

Edytuj: poprawiono niektóre śmieci w próbce kodu; okazuje się, że kupiłem z nieaktualnego kodu.

Answer 1

wygląda na to, nie ma komponent DBIC do tego, można to zrobić z małym mod do istniejącego kodu chociaż:

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; 
} 

jak to jest proste, nie ma sensu dla składnik.

Answer 2

nie jest twoją kolejką wywołania kodu() jako metodą klasy zamiast metody obiektowej? miałeś na myśli

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

?

edycja - Przepraszam, po prostu ponownie przeczytać pytanie, a przypuszczam, że to tylko literówka

myśl - jeśli wartość domyślna to w schemacie SQL, a następnie zrobić trzeba ustawić go w obiekcie, jak również ? jeśli przejdziesz przez NULL (undef) otrzymasz domyślną wartość w tabeli, i aby odzwierciedlić to w zestawie obiektów, podklasy metody new(), aby ponownie odczytać wiersz db (-> discard_changes() zrobi to i myślę)

Answer 3

Innym podejściem byłoby posiadanie "zapisanego" pola w bazie danych, które zaznaczysz po zapisaniu. możesz użyć widoków, aby odróżnić zapisane obiekty od nowych.

Podejście to będzie wolniejsze, ale pozwoli Ci wybrać DATETIME lub inne domyślne ustawienia DB, na które powyższa odpowiedź może mieć problemy.