11 my ($class, $args) = @_;
15 $self->{gui} = $args->{gui} or croak;
16 $self->{race_running} = 0;
17 $self->{lap_counting_up} = 1;
20 $self->{cars}->[$i] = SCX::Car->new({
29 sub car { return shift->{cars}->[shift]; }
34 $self->{race_running} = 1;
41 $self->{race_running} = 0;