#!/usr/local/bin/perl -w
# test-that-bad-class.pl -- Testet unseren ueblen Hack aus.

use ABadlyHackedUpClass;

my $mary = ABadlyHackedUpClass->new('mary', '555-1234');
my $john = ABadlyHackedUpClass->new('john', '555-9999');

$mary->setPhone('555-5555');
print $mary->getName(), " has a new phone number!\n";
print $john->getName(), " doesn't!\n";