Compass::Bearing - Convert angle to text bearing (aka heading)

  use Compass::Bearing;
  my $obj = Compass::Bearing->new();
  print "Bearing: $_ deg => ", $obj->bearing($_), "\n" foreach (12,45,78,133);
  print "Compass: ", join(":", $obj->data),"\n";

  my $obj = Compass::Bearing->new();

  my $bearing=$obj->bearing($degrees_from_north);

  my $bearing=$obj->bearing_rad($radians_from_north);

  my $key=$self->set;
  my $key=$self->set(1);
  my $key=$self->set(2);
  my $key=$self->set(3); #default value

  my $data=$self->data;

package Compass::Bearing;

use strict;
use vars qw($VERSION);
use Geo::Functions qw{deg_rad round};

$VERSION = sprintf("%d.%02d", q{Revision: 0.05} =~ /(\d+)\.(\d+)/);

sub new {
  my $this = shift();
  my $class = ref($this) || $this;
  my $self = {};
  bless $self, $class;
  $self->initialize(@_);
  return $self;
}

sub initialize {
  my $self = shift();
  my $param = shift()||3;
  $self->set($param);
}

sub bearing {
  my $self=shift();
  my $angle=shift()||0; #degrees
  $angle+=360 while ($angle < 0);
  my @data=$self->data;
  return $data[round($angle/360 * @data) % @data];
}

sub bearing_rad {
  my $self=shift();
  my $angle=deg_rad(shift()||0); #degrees
  return $self->bearing($angle);
}

sub set {
  my $self=shift();
  my $param=shift();
  if (defined $param) {
    my %data=$self->dataraw;
    my @keys=sort keys %data;
    if (exists $data{$param}) {
      $self->{'set'}=$param;
    } else {
      die(qq{Error: "$param" is not a valid parameter to the set method.  Try }. join(", ", map {qq{"$_"}} @keys). ".\n")
    }
  }
  return $self->{'set'};
}

sub data {
  my $self=shift();
  my $data=$self->dataraw;
  my $return=$data->{$self->set};
  return wantarray ? @{$return} : $return;
}

sub dataraw {
  my %data=(1=>[qw{N E S W}],
            2=>[qw{N NE E SE S SW W NW}],
            3=>[qw{N NNE NE ENE E ESE SE SSE S SSW SW WSW W WNW NW NNW}]);
  return wantarray ? %data : \%data;
}

1;

__END__