Mailing List Archive

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@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits