use module and conf from database for service list updates

1 files changed, 3 insertions, 1 deletions

diff --git a/perllib/Open311.pm b/perllib/Open311.pm
index a5fb060e3..4d29753a2 100644
--- a/perllib/Open311.pm
+++ b/perllib/Open311.pm
@@ -4,6 +4,7 @@ use URI;
 use Moose;
 use XML::Simple;
 use LWP::Simple;
+use LWP::UserAgent;
 use HTTP::Request::Common qw(POST);
 
 has jurisdiction => ( is => 'ro', isa => 'Str' );;
@@ -110,13 +111,14 @@ sub _post {
     $uri->path( $uri->path . $path );
 
     use Data::Dumper;
-    my $req = POST $uri->as_string;
+    my $req = POST $uri->as_string,
     [
         jurisdiction_id => $self->jurisdiction,
         api_key => $self->api_key,
         %{ $params }
     ];
 
+    my $ua = LWP::UserAgent->new();
     my $res = $ua->request( $req );
 
     if ( $res->is_success ) {