view release on metacpan or  search on metacpan

lib/DBIx/Class/ResultSet/PhoneticSearch.pm  view on Meta::CPAN

        $self->_require_class($class);
        my $encoded_value = $class->new->encode($value);
        
        push(@{$query}, { "$prefix$column" => $encoded_value});

    }

    return $self->search( { $type => $query }, $attributes );
}

sub update_phonetic_columns {
    my ($self) = @_;
    my $i      = 0;
    my $source = $self->result_source;
    foreach my $column ( $source->columns ) {
        $i += $self->update_phonetic_column($column);
    }
    return $i;
}

sub update_phonetic_column {
    my ( $self, $column ) = @_;
    my $source = $self->result_source;
    my $config = $source->column_info($column)->{phonetic_search};
    my $i;
    return 0 unless ($config);
    my $class           = 'Text::Phonetic::' . $config->{algorithm};
    my $phonetic_column = $column . '_phonetic_' . lc( $config->{algorithm} );
    $self->_require_class($class);
    my $rs = $self->search( { $column => { '!=' => undef } } );