1 files changed, 17 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/App.pm b/perllib/FixMyStreet/App.pm
index 8e6766f58..8a93e4501 100644
--- a/perllib/FixMyStreet/App.pm
+++ b/perllib/FixMyStreet/App.pm
@@ -313,6 +313,23 @@ sub uri_for_email {
     return URI->new($email_uri);
 }
 
+=head2 fake_q
+
+    $q = $c->fake_q();
+
+Returns a faked up object that behaves as the old code expects the old '$q' to
+behave.
+
+=cut
+
+sub fake_q {
+    my $c = shift;
+
+    # FIXME - implement fully
+    # site
+    return $c->req;
+}
+
 =head1 SEE ALSO
 
 L<FixMyStreet::App::Controller::Root>, L<Catalyst>