Allowing cobrands to serve pages not in the main app

1 files changed, 28 insertions, 0 deletions

diff --git a/perllib/t/Cobrands/Mysite/Util.pm b/perllib/t/Cobrands/Mysite/Util.pm
new file mode 100644
index 000000000..61f6fd831
--- /dev/null
+++ b/perllib/t/Cobrands/Mysite/Util.pm
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+#
+# Util.pm:
+# Test Cobranding for FixMyStreet.
+#
+#
+# Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved.
+# Email: louise@mysociety.org. WWW: http://www.mysociety.org
+#
+# $Id: Util.pm,v 1.1 2009-08-26 16:52:15 louise Exp $
+
+package Cobrands::Mysite::Util;
+use Page;
+use strict;
+use Carp;
+use mySociety::Web qw(ent);
+
+sub new{
+    my $class = shift;
+    return bless {}, $class;
+}
+
+sub page{
+   my %params = ();
+   return ("A cobrand produced page", %params);
+}
+
+1;