#!/usr/bin/perl -w

# Interface to various online map servers.

# Waider 2001
package MapServer;

use Carp;
use strict;

sub new {
  my $self = shift;
  my $obj = bless {}, $self;

  $obj->{debug} = 0;

  $obj;
}

# Independant of implementation
sub online() {
  my $self = shift;
  $self->{'online'} = shift if @_;
  $self->{'online'};
}

sub mag() {
  my $obj = shift;
  croak "$obj hasn't implemented mag()\n";
}

sub debug() {
    my $self = shift;
    $self->{debug} = $_[0] if @_;
    $self->{debug};
}

sub xscale() {
  my $obj = shift;
  croak "$obj hasn't implemented xscale()\n";
}

sub yscale() {
  my $obj = shift;
  croak "$obj hasn't implemented yscale()\n";
}

sub fetchmap( @ ) {
  my $obj = shift;
  croak "$obj hasn't implemented fetchmap()\n";
}

1;