Allowing cobrands to serve pages not in the main app

1 files changed, 28 insertions, 0 deletions

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;