1# -*- perl -*-
2
3#
4# $Id: Oranienburg_DE.pm,v 1.1 2007/07/18 20:49:00 eserte Exp $
5# Author: Slaven Rezic
6#
7# Copyright (C) 2007 Slaven Rezic. All rights reserved.
8# This package is free software; you can redistribute it and/or
9# modify it under the same terms as Perl itself.
10#
11# Mail: srezic@cpan.org
12# WWW:  http://www.bbbike.de
13#
14
15package Geography::Oranienburg_DE;
16
17use strict;
18# private:
19use vars qw(%subcityparts %cityparts %subcitypart_to_citypart %properties);
20
21use base qw(Geography::Base);
22
23# XXX missing
24%cityparts =
25    (
26     #'Mitte'                            => [qw/Mitte Tiergarten Wedding/],
27    );
28
29
30# XXX Methode
31%properties =
32    ('has_u_bahn' => 0,
33     'has_s_bahn' => 1,
34     'has_r_bahn' => 1,
35     'has_map'    => 1,
36     # XXX etc.: z.B. Icon-Namen, weitere Feinheiten wie
37     # map-Names, Zonen, overview-Karte...
38    );
39
40# cityname in native or common language
41sub cityname { "Oranienburg" }
42
43sub center { "-1547,38500" }
44sub center_name { "Oranienburg" }
45
46sub supercityparts { () }
47sub cityparts      { sort keys %subcityparts }
48sub subcityparts   { () }
49
50sub citypart_to_subcitypart { +{} }
51sub subcitypart_to_citypart { +{} }
52
53# reuse data from Berlin_DE
54sub datadir {
55    require Geography::Berlin_DE;
56    shift;
57    Geography::Berlin_DE->datadir(@_);
58}
59
60sub parse_street_type_nr {
61    require Geography::Berlin_DE;
62    shift;
63    Geography::Berlin_DE->parse_street_type_nr(@_);
64}
65
661;
67
68__END__
69