# Licensed to the Apache Software Foundation (ASF) under one or more # contributor license agreements. See the NOTICE file distributed with # this work for additional information regarding copyright ownership. # The ASF licenses this file to You under the Apache License, Version 2.0 # (the "License"); you may not use this file except in compliance with # the License. You may obtain a copy of the License at # # http://www.apache.org/licenses/LICENSE-2.0 # # Unless required by applicable law or agreed to in writing, software # distributed under the License is distributed on an "AS IS" BASIS, # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. # See the License for the specific language governing permissions and # limitations under the License. package Lucy::Search::Matcher; use Lucy; our $VERSION = '0.003002'; $VERSION = eval $VERSION; 1; __END__ __BINDING__ my $synopsis = <<'END_SYNOPSIS'; # abstract base class END_SYNOPSIS my $constructor = <<'END_CONSTRUCTOR_CODE_SAMPLE'; my $matcher = MyMatcher->SUPER::new; END_CONSTRUCTOR_CODE_SAMPLE Clownfish::CFC::Binding::Perl::Class->register( parcel => "Lucy", class_name => "Lucy::Search::Matcher", bind_methods => [qw( Next Advance Get_Doc_ID Score Collect )], bind_constructors => ["new"], make_pod => { synopsis => $synopsis, constructor => { sample => $constructor }, methods => [qw( next advance get_doc_id score )], } );