1 files changed, 47 insertions, 0 deletions
diff --git a/perllib/Open311/Endpoint/Integration/Warwick.pm b/perllib/Open311/Endpoint/Integration/Warwick.pm
new file mode 100644
index 000000000..0680f7ba1
--- /dev/null
+++ b/perllib/Open311/Endpoint/Integration/Warwick.pm
@@ -0,0 +1,47 @@
+package Open311::Endpoint::Integration::Warwick;
+use Web::Simple;
+extends 'Open311::Endpoint::Integration::Exor';
+use Open311::Endpoint::Service::Exor;
+
+has '+default_service_notice' => (
+    default => 'Warwickshire Open311 Endpoint',
+);
+
+sub services {
+    # TODO, get this from ::Exor
+    my @services = (
+        [ BR => 'Bridges' ],
+        [ CD => 'Carriageway Defect' ],
+        [ CD => 'Roads/Highways' ],
+        [ DR => 'Drainage' ],
+        [ DS => 'Debris/Spillage' ],
+        [ FE => 'Fences' ],
+        [ 'F D' => 'Pavements' ],
+        [ GC => 'Gully & Catchpits' ],
+        [ IS => 'Ice/Snow' ],
+        [ MD => 'Mud & Debris' ],
+        [ MH => 'Manhole' ],
+        [ OS => 'Oil Spillage' ],
+        [ OT => 'Other' ],
+        [ PO => 'Pothole' ],
+        [ PD => 'Property Damage' ],
+        [ RM => 'Road Marking' ],
+        [ SN => 'Road traffic signs' ],
+        [ SP => 'Traffic' ],
+        [ UT => 'Utilities' ],
+        [ VG => 'Vegetation' ],
+    );
+    return map {
+        my ($code, $name) = @$_;
+        Open311::Endpoint::Service::Exor->new(
+            service_code => $code,
+            service_name => $name,
+            description => $name,
+            type => 'realtime',
+            keywords => [qw/ /],
+            group => 'highways',
+        ),
+    } @services;
+}
+
+1;