From 3a4f027ec05aa5fdf4098ceb0dab09f69c5e0b8b Mon Sep 17 00:00:00 2001
From: Jules Laplace <julescarbon@gmail.com>
Date: Fri, 8 Dec 2017 01:34:52 +0100
Subject: adding perl search index builder

---
 search/lib/Bucky/Session.pm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 search/lib/Bucky/Session.pm

(limited to 'search/lib/Bucky/Session.pm')

diff --git a/search/lib/Bucky/Session.pm b/search/lib/Bucky/Session.pm
new file mode 100644
index 0000000..0cff753
--- /dev/null
+++ b/search/lib/Bucky/Session.pm
@@ -0,0 +1,19 @@
+package Bucky::Session;
+
+use base 'Bucky';
+
+use CGI;
+
+sub param
+	{
+	my ($self, $name) = @_;
+	return unless $name;
+	return $self->q->param($name);
+	}
+sub q
+	{
+	my ($self) = @_;
+	$self->{'_q'} ||= new CGI;
+	return $self->{'_q'};
+	}
+1;
-- 
cgit v1.2.3-70-g09d2