aboutsummaryrefslogtreecommitdiffstats
path: root/t/Mock/MapIt.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/Mock/MapIt.pm')
-rw-r--r--t/Mock/MapIt.pm10
1 files changed, 9 insertions, 1 deletions
diff --git a/t/Mock/MapIt.pm b/t/Mock/MapIt.pm
index 2778df1ed..d5b73641a 100644
--- a/t/Mock/MapIt.pm
+++ b/t/Mock/MapIt.pm
@@ -55,7 +55,15 @@ sub dispatch_request {
my ($self, $postcode) = @_;
foreach (@PLACES) {
if ($postcode eq $_->[0] || $postcode eq $_->[0] =~ s/ //gr) {
- return $self->output({wgs84_lat => $_->[1], wgs84_lon => $_->[2], postcode => $postcode, coordsyst => 'G'});
+ my %areas;
+ for (my $i=3; $i<@$_; $i+=3) {
+ $areas{"$_->[$i]"} = { id => $_->[$i], name => $_->[$i+1], type => $_->[$i+2] };
+ }
+ return $self->output({
+ wgs84_lat => $_->[1], wgs84_lon => $_->[2],
+ postcode => $postcode, coordsyst => 'G',
+ areas => \%areas,
+ });
}
}
my $response = {