t/MockQuery.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

#!/usr/bin/perl -w
#
# MockQuery.pm:
# Mock query to support tests for the Page functions
#
#  Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved.
# Email: louise@mysociety.org; WWW: http://www.mysociety.org/
#
# $Id: MockQuery.pm,v 1.2 2009-09-15 13:55:17 louise Exp $
#


package MockQuery;

sub new {
    my ($class, $site, $params) = @_;
    my $self = {
     site => $site,
     params => $params,
    };
    bless $self, $class;
    return $self;
}

sub header {
  
}

sub param {
  my ($self, $key) = @_;
  return $self->{params}->{$key};  
}

1;