File Coverage

blib/lib/ToolSet/Math.pm

Criterion	Covered	Total	%
statement	56	56	100.0
branch	2	2	100.0
condition			n/a
subroutine	21	21	100.0
pod	0	2	0.0
total	79	81	97.5

package ToolSet::Math;
use base qw(ToolSet);

use 5.008_005;
use strict;
use warnings;

use List::Util qw(reduce);

BEGIN {
    our $VERSION = "1.001";
    $VERSION = eval $VERSION;

    our @EXPORT = qw(
      E LN2 LN10 PI PI2 PI4 PIP2 PIP4 SQRT2 SQRT5 SQRT1_2 GOLDENR
      log2 fac
    );
}

ToolSet->export(
    "List::Util" => [qw(max min sum sum0)],
    "Math::Trig" => undef,
    "Math::Complex" => undef,
    "Math::Complex" => [qw(:pi)],
    "POSIX" => [qw(
      ceil floor modf pow round
      isfinite isinf isnan
      FLT_EPSILON DBL_EPSILON nan NaN NAN
    )], # use int() for trunc()
);

use constant E => exp(1);
use constant LN2 => log(2);
use constant LN10 => log(10);

use constant PI => 4 * CORE::atan2(1, 1);
use constant PI2 => PI * 2;
use constant PI4 => PI * 4;
use constant PIP2 => PI / 2;
use constant PIP4 => PI / 4;

use constant SQRT2 => sqrt(2);
use constant SQRT5 => sqrt(5);
use constant SQRT1_2 => sqrt(1 / 2);
use constant GOLDENR => (1 + SQRT5) / 2;

sub log2 { Math::Complex::log($_[0]) / LN2 }

sub fac { !$_[0] ? 1 : reduce { $a * $b } 1 .. $_[0] }

1;
__END__