blob: 0574c1cccb73ec1e85216a55845952d63dffbf50 (
plain)
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
|
#!/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.1 2009-08-27 08:42:46 louise Exp $
#
package MockQuery;
sub new{
my $class = shift;
my $self = {
site => shift,
};
bless $self, $class;
return $self;
}
sub header{
}
1;
|
