From 6ab35a4059158909d2560d2a8b201e2e477d3dcf Mon Sep 17 00:00:00 2001 From: louise Date: Wed, 26 Aug 2009 16:52:14 +0000 Subject: Allowing cobrands to serve pages not in the main app --- perllib/t/MockQuery.pm | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 perllib/t/MockQuery.pm (limited to 'perllib/t/MockQuery.pm') diff --git a/perllib/t/MockQuery.pm b/perllib/t/MockQuery.pm new file mode 100644 index 000000000..a6cd3ff78 --- /dev/null +++ b/perllib/t/MockQuery.pm @@ -0,0 +1,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-26 16:52:14 louise Exp $ +# + + +package MockQuery; + +sub new{ + my $class = shift; + my $self = { + site => shift, + }; + bless $self, $class; + return $self; +} + +sub header{ + +} + +1; -- cgit v1.2.3