#!/usr/bin/perl

# Using the visitor class

use strict;
use warnings;

use Car;
use PrintVisitor;
use Wheel;
use Body;
use Engine;

my $car = Car->new();
$car->engine( Engine->new() );
$car->body( Body->new() );
$car->wheels( [Wheel->new("front left"), 
               Wheel->new("front right"), 
               Wheel->new("back left"), 
               Wheel->new("back right")] );

my $visitor = PrintVisitor->new();
$car->accept($visitor);