NAME
Compass::Bearing - Convert angle to text bearing (aka Heading)
SYNOPSIS
use Compass::Bearing;
my $obj = Compass::Bearing->new(16);
print "Bearing=", $obj->bearing(45), "\n";DESCRIPTION
CONSTRUCTOR
new
The new() constructor may be called with any parameter that is appropriate to the set method.
my $obj = Compass::Bearing->new();METHODS
bearing
Method returns a text string based on bearing
my $bearing=$obj->bearing($degrees_from_north);bearing_rad
Method returns a text string based on bearing
my $bearing=$obj->bearing_rad($radians_from_north);set
Method sets of returns key for the bearing data structure.
my $key=$self->set;
my $key=$self->set(1);
my $key=$self->set(2); #default value
my $key=$self->set(3);data
Method returns an array of text values.
my $data=$self->data;TODO
BUGS
Please send to the geo-perl email list.
LIMITS
AUTHOR
Michael R. Davis qw/perl michaelrdavis com/
LICENSE
Copyright (c) 2006 Michael R. Davis (mrdvt92)
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.