File Coverage

blib/lib/Data/RunningTotal/Item.pm

Criterion	Covered	Total	%
statement	28	32	87.5
branch	5	8	62.5
condition	3	8	37.5
subroutine	6	6	100.0
pod	0	2	0.0
total	42	56	75.0

package Data::RunningTotal::Item;

use 5.005;
use strict;
use warnings;
use Carp;

require Exporter;

our @ISA = qw(Exporter);

our $VERSION = '0.03';


sub new {
    my $that = shift;
    my $class = ref($that) || $that;
    my ($rt, $numDims, $weight) = @_;

    my %state = (weight  => $weight || 1,
                 numDims => $numDims,
                 rt      => $rt
                );

    return bless(\%state);

}


sub moveTo {
  my ($self, $time, %opts) = @_;

  croak("Expected an array ref for parameter 'coords'") if (ref($opts{coords}) ne "ARRAY");
  if (scalar(@{$opts{coords}}) != $self->{rt}->{numDims}) {
    croak("Expected $self->{numDims} coordinates, but ".scalar(@{$opts{coords}})." given");
  }

  if (defined($self->{lastTime}) &&
      $time < $self->{lastTime}) {
    carp("Item can't be moved to time in the past.  Previous time moved: $self->{lastTime}.  Current movement time: $time");
    return;
  }

  if (defined($self->{lastCoords})) {
    $self->{rt}->dec($time, weight => $self->{weight}, coords => $self->{lastCoords});
  }

  @{$self->{lastCoords}} = @{$opts{coords}};

  $self->{rt}->inc($time, weight => $self->{weight}, coords => $self->{lastCoords});

}

__END__