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;
|
