#!/usr/local/bin/perl -w
# test-np-object.pl -- Testet die fast perfekte Klasse

use ANearlyPerfectClass;

$mary = ANearlyPerfectClass->new('mary', '555-1234', '41');
$john = ANearlyPerfectClass->new('john', '555-9999', '99');

print join(' ', "Name:", $mary->getAttribNr(0),
                "Tel.:", $mary->getAttribNr(1),
            "Room:", $mary->getAttribNr(2) ), "\n";

print "Attributes of john: ",
      join(' ', map { $john->getAttribNr($_) } 0 .. 2), "\n";

$mary->setAttribNr(2, 'new room');
print "New room for mary: ", $mary->getAttribNr(2), "\n";