Adding params to mock query

1 files changed, 11 insertions, 5 deletions

diff --git a/t/MockQuery.pm b/t/MockQuery.pm
index 0574c1ccc..f01aad5ac 100644
--- a/t/MockQuery.pm
+++ b/t/MockQuery.pm
@@ -6,23 +6,29 @@
 #  Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved.
 # Email: louise@mysociety.org; WWW: http://www.mysociety.org/
 #
-# $Id: MockQuery.pm,v 1.1 2009-08-27 08:42:46 louise Exp $
+# $Id: MockQuery.pm,v 1.2 2009-09-15 13:55:17 louise Exp $
 #
 
 
 package MockQuery;
 
-sub new{
-    my $class = shift;
+sub new {
+    my ($class, $site, $params) = @_;
     my $self = {
-     site => shift,
+     site => $site,
+     params => $params,
     };
     bless $self, $class;
     return $self;
 }
 
-sub header{
+sub header {
   
 }
 
+sub param {
+  my ($self, $key) = @_;
+  return $self->{params}->{$key};  
+}
+
 1;