File Coverage

blib/lib/Math/FresnelZone.pm

Criterion	Covered	Total	%
statement	6	15	40.0
branch	0	4	0.0
condition	0	6	0.0
subroutine	2	5	40.0
pod	3	3	100.0
total	11	33	33.3

package Math::FresnelZone;

use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(fresnel fresnelMi fresnelKm);

our $VERSION = '0.03';

our $KILOMETERS_IN_A_MILE = 1.609344;
our $FEET_IN_A_METER      = 3.280839;

sub fresnel {
   my $d = shift || 1;
   my $f = shift || 2.4;
   my $m = shift || 0;
   $d = $d * $KILOMETERS_IN_A_MILE if $m; # convert miles into kilometers
   my $fz = 72.6*sqrt($d/(4*$f));
   $fz = $fz * $FEET_IN_A_METER  if $m;   # convert meters back into feet
   return $fz;
}

sub fresnelMi { fresnel(shift,shift,1); }

sub fresnelKm { fresnel(shift,shift,0); }

1;
__END__