File Coverage

blib/lib/Math/Business/HMA.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	5	8	62.5
condition	2	3	66.6
subroutine	8	10	80.0
pod	0	6	0.0
total	47	61	77.0

package Math::Business::HMA;

use strict;
use warnings;
use Carp;
use Math::Business::WMA;

1;

sub tag { (shift)->[-1] }

sub recommended { croak "no recommendation" }

sub new {
    my $class = shift;
    my $this  = bless [
        undef,
        undef,
        undef,
        undef
    ], $class;

    my $days = shift;
    if( defined $days ) {
        $this->set_days( $days );
    }

    return $this;
}

sub set_days {
    my $this = shift;
    my $arg  = int(shift);

    croak "days must be a positive number" if $arg <= 0;

    @$this = (
        Math::Business::WMA->new(int($arg/2)),
        Math::Business::WMA->new($arg),
        Math::Business::WMA->new(int(sqrt($arg))),

        "HMA($arg)", # tag must be last
    );
}

sub insert {
    my $this = shift;
    my ($po2, $p, $sqp) = @$this;

    croak "You must set the number of days before you try to insert" unless defined $sqp;
    while( defined(my $P = shift) ) {
        $po2->insert($P);
          $p->insert($P);

        if( defined( my $_p = $p->query ) and defined( my $_po2 = $po2->query ) ) {
            $sqp->insert( 2*$_po2 - $_p );
        }
    }
}

sub query {
    my $this = shift;

    return $this->[2]->query;
}

__END__