view release on metacpan or  search on metacpan

README.md  view on Meta::CPAN

    my $rad = rad_deg(90);

## rad\_dms

Radians given degrees minutes seconds.

    my $rad = rad_dms(45 30 20.0);

## round

Round to the nearest integer. This formula rounds toward +/- infinity.

    my $int = round(42.2);

## dms\_deg

Degrees minutes seconds given degrees.

    my ($d, $m, $s, $sign) = dms_deg($degrees, qw{N S});
    my ($d, $m, $s, $sign) = dms_deg($degrees, qw{E W});

lib/Geo/Functions.pm  view on Meta::CPAN

  my $rad = rad_dms(45 30 20.0);

=cut

sub rad_dms {
  return rad_deg(deg_dms(@_));
}

=head2 round

Round to the nearest integer. This formula rounds toward +/- infinity.

  my $int = round(42.2);

=cut

sub round {
  my $self   = shift();
  my $number = ref($self) ? shift() : $self;
  return int($number + 0.5 * ($number <=> 0));
}