# NAME

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

# SYNOPSIS

    use Compass::Bearing;
    my $cb    = Compass::Bearing->new(3);
    my $angle = 12;
    printf "Bearing: %s deg => %s\n", $angle, $cb->bearing($angle); #prints NNE

# DESCRIPTION

Convert angle to text bearing (aka heading)

# 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 and returns key for the bearing text data structure.

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

## data

Method returns an array of text values.

    my $data=$self->data;

# BUGS

Please log on GitHub

# AUTHOR

Michael R. Davis

# LICENSE

MIT License

Copyright (c) 2022 Michael R. Davis

# SEE ALSO

[Ham::Resources::Utils](https://metacpan.org/pod/Ham::Resources::Utils) compass method