1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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;
|
