#!/usr/bin/perl -w

=head1 NAME

example-simple - Geo::Ellipsoids simple example

=cut

use strict;
use lib q{../lib};
use lib q{./lib};
use Geo::Ellipsoids;
my $obj=Geo::Ellipsoids->new(); #defaults to WGS84
print "Short Name: ", $obj->shortname, "\n";
print "Long Name:  ", $obj->longname, "\n";
print "Ellipsoid:  ", "{a=>",$obj->a,",i=>",$obj->i,"}", "\n";
print "\n";
print "a=", $obj->a, "\n";
print "b=", $obj->b, "\n";
print "f=", $obj->f, "\n";
print "i=", $obj->i, "\n";
