put something in the base class and make things inherit from it

1 files changed, 5 insertions, 14 deletions

diff --git a/perllib/FixMyStreet/SendReport/London.pm b/perllib/FixMyStreet/SendReport/London.pm
index cb76c7a24..29368314f 100644
--- a/perllib/FixMyStreet/SendReport/London.pm
+++ b/perllib/FixMyStreet/SendReport/London.pm
@@ -1,25 +1,16 @@
 package FixMyStreet::SendReport::Email;
 
+use Moose;
+use namespace::autoclean;
+
+BEGIN { extends 'FixMyStreet::SendReport'; }
+
 use Digest::MD5;
 use LWP::UserAgent;
 use LWP::Simple;
 
 use Utils;
 
-my %councils = ();
-my @to;
-
-sub reset {
-    %councils = ();
-    @to = ();
-}
-
-sub add_council {
-    my $council = shift;
-    my $name = shift;
-
-    $councils{ $council } = $name;
-}
 sub construct_message {
     my %h = @_;
     return <<EOF,