marvin at rectangular
Sep 10, 2008, 10:32 PM
Post #1 of 1
(2526 views)
Permalink
|
|
r3871 - in trunk/perl/lib: . KinoSearch
|
|
Author: creamyg
Date: 2008-09-10 22:32:12 -0700 (Wed, 10 Sep 2008)
New Revision: 3871
Modified:
trunk/perl/lib/KinoSearch.pm
trunk/perl/lib/KinoSearch/QueryParser.pm
Log:
Bind Query_Get_Fields.
Modified: trunk/perl/lib/KinoSearch/QueryParser.pm
===================================================================
--- trunk/perl/lib/KinoSearch/QueryParser.pm 2008-09-11 05:31:41 UTC (rev 3870)
+++ trunk/perl/lib/KinoSearch/QueryParser.pm 2008-09-11 05:32:12 UTC (rev 3871)
@@ -35,7 +35,9 @@
Heed_Colons
Set_Heed_Colons
Get_Analyzer
- Get_Schema )
+ Get_Schema
+ _get_fields|Get_Fields
+ )
],
make_constructors => ["new"],
make_pod => {
Modified: trunk/perl/lib/KinoSearch.pm
===================================================================
--- trunk/perl/lib/KinoSearch.pm 2008-09-11 05:31:41 UTC (rev 3870)
+++ trunk/perl/lib/KinoSearch.pm 2008-09-11 05:32:12 UTC (rev 3871)
@@ -336,6 +336,11 @@
}
{
+ package KinoSearch::QueryParser;
+ sub get_fields { shift->_get_fields->to_perl }
+}
+
+{
package KinoSearch::Schema;
use KinoSearch::Util::ToolSet qw( blessed );
_______________________________________________
kinosearch-commits mailing list
kinosearch-commits [at] rectangular
http://www.rectangular.com/mailman/listinfo/kinosearch-commits
|
