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