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

use ClassWithAnonHash;

$mary = ClassWithAnonHash->new(name => 'mary', phone => '555-1234');
$john = ClassWithAnonHash->new(name => 'john', phone => '555-9999',
                               room => '42',   fax   => '555-7777');

print join(' ', map { "$_: " . $john->getAttribute($_) }
                sort $john->getAttributeNames() ),
      "\n";

$mary->setAttribute('room', '41');
print "Room of Mary: ", $mary->getAttribute('room'), "\n";