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