use strict;
use warnings;
use lib '.';
require Ex::Improved;

my $ex1 = Ex::Improved->new();
# Show that the parent's constructor still works:
my $ex2 = $ex1->new();

$ex1->setColor('green');
$ex1->setFood('bean');

$ex2->setColor('red');
$ex2->setFood('radish');

my $count = 0;	# count each object we display
for my $obj ($ex1, $ex2) {
	printf "Object: %d\n", ++$count;
	printf "Color: %s\n", $obj->getColor();
	printf "Food: %s\n", $obj->getFood();
}