package Caretaker;
use strict;
use Originator;
use Memento;

sub new {
  my $class = shift;
  my $self = {};
  my $initial = shift;
  my $orig = Originator->new($initial, $initial);
  my $i;
  for ($i=0; $i<1000; $i++) {
    $orig->incrementi();
    $orig->incrementj();
    $orig->incrementj();
    my $m = $orig->checkPoint();
    $orig->incrementj();
    $orig->rollBack($m);
  }
  bless $self, $class;
}
1;