sub insert {
    my $self = shift;

    my $ret = $self->next::method(@_);

    $self->update_search_summary;

    return $ret;
}

sub update {
    my $self = shift;

    my $args = $_[0] // {};
    my %data = ($self->get_dirty_columns, %$args);

    my $ret = $self->next::method(@_);

    delete $data{search_summary};
    $self->update_search_summary    if %data;

    return $ret;
}