adding perl search index builder

1 files changed, 26 insertions, 0 deletions

diff --git a/search/lib/Bucky/Keyword.pm b/search/lib/Bucky/Keyword.pm
new file mode 100644
index 0000000..8c52256
--- /dev/null
+++ b/search/lib/Bucky/Keyword.pm
@@ -0,0 +1,26 @@
+package Bucky::Keyword;
+
+use base 'Bucky';
+
+sub type { $Bucky::Keyword }
+sub fields
+	{[qw[
+	id keyword threads owner createdate
+	owner ops public
+	agglutinate
+	color display
+	]]}
+
+sub _id				{ shift->{id} }
+sub _keyword		{ shift->{keyword} }
+sub _threads		{ shift->{threads} }
+sub _username		{ shift->{owner} }
+sub _ops			{ shift->{ops} }
+sub _public			{ shift->{public} }
+sub _createdate		{ shift->{createdate} }
+sub _agglutinate	{ shift->{agglutinate} }
+sub _color			{ shift->{color} }
+sub _display		{ shift->{display} }
+
+1;
+