Open311 Endpoint

Subsystems include

 * ::Spark encoding conventions for xml/json
 * ::Schema using Rx to validate form of inputs and outputs,
      including validation for, e.g., dates and CSV as part of Open311

Handles following paths:

 * Open311 attributes for Service Definition
   http://wiki.open311.org/GeoReport_v2#GET_Service_Definition
 * POST service request
 * GET Service Requests
 * GET Service Request

Objects:

 * ::Service
 * ::Service::Request

1 files changed, 38 insertions, 0 deletions

diff --git a/perllib/Open311/Endpoint/Result.pm b/perllib/Open311/Endpoint/Result.pm
new file mode 100644
index 000000000..2d3c42154
--- /dev/null
+++ b/perllib/Open311/Endpoint/Result.pm
@@ -0,0 +1,38 @@
+package Open311::Endpoint::Result;
+use Moo;
+
+has status => (
+    is => 'ro',
+);
+has data => (
+    is => 'ro',
+);
+
+sub success {
+    my ($class, $data) = @_;
+    return $class->new({
+        status => 200,
+        data => $data,
+    });
+}
+
+sub error {
+    my ($class, $code, @errors) = @_;
+    $code ||= 400;
+    return $class->new({
+        status => $code,
+        data => {
+            errors => [
+                map {
+                    ref $_ eq 'HASH' ? $_ :
+                    {
+                        code => $code,
+                        description => $_,
+                    }
+                } @errors,
+            ],
+        },
+    });
+}
+
+1;