#!/usr/bin/perl -w

use strict;
use HistoryObj;

my $hist = HistoryObj->new();
my $hist2 = HistoryObj->new();

$hist->color('pink');
$hist->texture('cotton candy');
$hist->taste('sweet');
print $hist->all(), "\n\n";

$hist2->color('beet purple');
$hist2->texture('slimy round goo');
$hist2->taste('do not ask!');
print $hist2->all(), "\n\n";

for (1 .. 3) {
    $hist->undo();
    print $hist->all(), "\n\n";
}

for (1 .. 3) {
    $hist2->undo();
    print $hist2->all(), "\n\n";
}