view release on metacpan or  search on metacpan

lib/Catmandu/Store/Solr/CQL.pm  view on Meta::CPAN

149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
if ($filters) {
    for my $filter (@$filters) {
        if ($filter eq 'lowercase') {
            $self->log->debug(
                "term '$term' filtered to lowercase");
            $term = lc $term;
        }
    }
}
 
#change term using callbacks
if (ref $op && $op->{cb}) {
    my ($pkg, $sub) = @{$op->{cb}};
    $self->log->debug(
        "term '$term' changed to ${pkg}->${sub}");
    $term = require_package($pkg)->$sub($term);
}
elsif ($q_mapping->{cb}) {
    my ($pkg, $sub) = @{$q_mapping->{cb}};
    $self->log->debug(
        "term '$term' changed to ${pkg}->${sub}");