Return the HTTP headers as well in an array context.

webtools/PLIF/PLIF/Service/WWW.pm

@@ -57,9 +57,11 @@ sub get {
     my($app, $uri) = @_;
     my $request = HTTP::Request->new('GET', $uri);
     my $response = $self->ua->request($request);
-    # XXX no error handling
-    # XXX headers are not returned
-    return $response->content;
+    if (wantarray) {
+        return ($response->content, $response);
+    } else {
+        return $response->content;
+    }
 }
 
 sub unescapeHTML {