Algorithm-Easing

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: Algorithm-Easing
requires:
  Math::Complex: '0'
  Math::Trig: '0'
  Moose: '0'
  constant: '0'
  namespace::autoclean: '0'
  namespace::clean: '0'
  strict: '0'
  warnings: '0'
version: '0.998'

Makefile.PL  view on Meta::CPAN

    "ExtUtils::MakeMaker" => 0
  },
  "DISTNAME" => "Algorithm-Easing",
  "LICENSE" => "perl",
  "NAME" => "Algorithm::Easing",
  "PREREQ_PM" => {
    "Math::Complex" => 0,
    "Math::Trig" => 0,
    "Moose" => 0,
    "constant" => 0,
    "namespace::autoclean" => 0,
    "namespace::clean" => 0,
    "strict" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "Test::More" => 0,
    "Time::HiRes" => 0,
    "feature" => 0
  },
  "VERSION" => "0.998",

Makefile.PL  view on Meta::CPAN

my %FallbackPrereqs = (
  "Math::Complex" => 0,
  "Math::Trig" => 0,
  "Moose" => 0,
  "Test::More" => 0,
  "Time::HiRes" => 0,
  "constant" => 0,
  "feature" => 0,
  "namespace::autoclean" => 0,
  "namespace::clean" => 0,
  "strict" => 0,
  "warnings" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {
  delete $WriteMakefileArgs{TEST_REQUIRES};
  delete $WriteMakefileArgs{BUILD_REQUIRES};
  $WriteMakefileArgs{PREREQ_PM} = \%FallbackPrereqs;

lib/Algorithm/Easing/Cubic.pm  view on Meta::CPAN

package Algorithm::Easing::Cubic;

use Moose;

use Math::Trig qw(:pi);

use constant EPSILON => 0.000001;

extends 'Algorithm::Easing::Ease';

use namespace::autoclean;

sub ease_in  {
    my $self = shift;
    my ($t,$b,$c,$d) = (shift,shift,shift,shift);

    return $b if ($t < EPSILON);
    return $c if ($d < EPSILON);

    return $c * ($t /= $d) * $t * $t + $b;
}