view release on metacpan or  search on metacpan

lib/DBIx/Class/I18NColumns.pm  view on Meta::CPAN

352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
    }
 
    return $self->next::method( $column, @_ );
}
 
=head2 update
 
Overloaded L<DBIx::Class::Row/update> to manage i18n columns cleanly. 
 
=cut
sub update {
    my $self = shift;
 
    $self->next::method( @_ );
 
    if ( $self->_i18n_column_row ) {
        for my $lang ( keys %{$self->_i18n_column_row} ) {
            my $i18n_row = $self->_i18n_column_row->{$lang};
            $i18n_row->in_storage ? $i18n_row->update : $i18n_row->insert ;
        }
    }