package Engine; # class for storing information about an Engine use warnings; use strict; use Carp; sub new { my $class = shift; my $self = {}; bless $self,$class; return $self; } sub accept { my $self = shift; my $visitor = shift; $visitor->visitEngine($self); } 1;