1# -*- perl -*- 2 3# 4# $Id: Base.pm,v 1.4 2009/06/27 15:34:38 eserte Exp $ 5# Author: Slaven Rezic 6# 7# Copyright (C) 2009 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: slaven@rezic.de 12# WWW: http://www.rezic.de/eserte/ 13# 14 15package Geography::Base; 16 17use strict; 18use vars qw($VERSION); 19$VERSION = sprintf("%d.%02d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/); 20 21sub new { bless {}, shift } 22sub cityname { undef } 23sub center { undef } # "x,y" 24sub center_name { undef } 25sub bbox { undef } # array ref 26sub search_args { () } 27sub scrollregion { () } 28sub is_osm_source { undef } 29sub coord_to_standard { ($_[1], $_[2]) } 30sub coord_to_standard_s { $_[1] } 31sub standard_to_coord { ($_[1], $_[2]) } 32sub standard_to_coord_s { $_[1] } 33sub _bbox_standard_coordsys { } 34sub _center_standard_coordsys { } 35 361; 37