#!/usr/bin/perl -w

=head1 NAME

example-stationary - Net::GPSD::Server::Fake example with stationary producer

=cut

use strict;
use lib qw{./lib ../lib};
use Net::GPSD::Server::Fake;
use Net::GPSD::Server::Fake::Stationary;

my $port=shift()||2947;
my $server=Net::GPSD::Server::Fake->new(port=>$port)
               || die("Error: Cannot create server object.");

my $stationary=Net::GPSD::Server::Fake::Stationary->new(lat=>38.865826,
                                                        lon=>-77.108574);
$server->start($stationary);
