File Coverage

blib/lib/Games/Sudoku/Component/Controller/History.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	3	4	75.0
condition	3	6	50.0
subroutine	9	9	100.0
pod	6	6	100.0
total	51	55	92.7

package Games::Sudoku::Component::Controller::History;
{
  use strict;
  use warnings;
  use Carp;

  our $VERSION = '0.01';

  sub new {
    my $class = shift;
    my $this  = bless {}, (ref $class || $class);

    $this->{history} = [];

    $this;
  }

  sub push {
    my ($this, $item) = @_;
    push @{ $this->{history} }, $item;
  }

  sub pop {
    my $this = shift;
    pop @{ $this->{history} };
  }

  sub clear {
    my $this = shift;
    $this->{history} = [];
  }

  sub count {
    my $this = shift;

    return 0 unless defined $this->{history};

    scalar @{ $this->{history} };
  }

  sub latest {
    my ($this, $count) = @_;

    my @history = @{ $this->{history} };

    $count = @history if !$count || $count > @history;

    my @latest = reverse @history[-$count..-1];
  }
}

1;
__END__