#!/usr/bin/perl -w

# Tehtävä 2.3            Perl-kurssi 81389-4, Tietojenkäsittelytieteen laitos
# Launo Tuuri                                             Helsingin yliopisto
# Opiskelijanumero 011648671                                       29.11.1999

# Tämä tiedosto, historiataulu.pl testaa modulia HistoriaTaulu.pm
# jossa on myös modulin dokumentaatio.
#
# Tehtävänannossa vaadittiin use strict:in käyttöä ja mahdollisuutta 
# käyttää modulia syntaksilla 
#
#    tie @a, HistoriaTaulu, 1, 100;
#
# Jos käytetään use strict:iä luokan nimessä on kuitenkin oltava 
# lainausmerkit, siis 
#
#   tie @a, "HistoriaTaulu", 1, 100;
#
# Lähde: `man DB_File`, kohta hakusanalla Bareword

use strict;
use HistoriaTaulu 'historia';
my @a;

tie @a, "HistoriaTaulu", 1, 100;
foreach my $i ("a".."z") {
    $a[10] = $i;
}
print $a[10], "\n";
print historia(@a, 10,  0), "\n";
print historia(@a, 10, -1), "\n";
print historia(@a, 10, -2), "\n";

# print $a[0], "\n";
# $a[200] = "z";
# print historia(@a, 10, -30), "\n";

# print historia(@a, 9, 0). "\n";