8 my ($class, $args) = @_;
11 data_dir => $args->{data_dir} || './sounds/',
21 my ($self, @names) = @_;
23 return if $self->{muted};
25 system 'aplay', $self->{data_dir} . '/' . join('-', @names) . '.wav';
28 sub mute { shift->{muted} = 1; }
29 sub unmute { shift->{muted} = 0; }
31 sub start { shift->_play('start'); }
32 sub filled { shift->_play('filled'); }
35 my ($self, $car_id) = @_;
37 $self->_play('winner', $car_id);
41 my ($self, $car_id) = @_;
43 $self->_play('box', $car_id);
47 my ($self, $car_id) = @_;
49 $self->_play('bestlap', $car_id);