+
+sub reset {
+ my ($self) = @_;
+
+ $self->set_lap(0);
+ $self->set_laptime(undef);
+ $self->{in_pit_lane} = 0;
+ $self->{early_start} = undef;
+}
+
+sub finish_line {
+ my ($self, $time, $regular) = @_;
+
+ return undef
+ if defined $self->{last_finish_time}
+ && $time - $self->{last_finish_time} < 2;
+
+ if ($regular) {
+ if (defined $self->{last_finish_time}) {
+ $self->set_laptime($time - $self->{last_finish_time});
+ }
+ } else {
+ $self->enter_pit_lane;
+ }
+
+ $self->{last_finish_time} = $time;
+ $self->set_lap(++$self->{lap});
+
+ return 1;
+}
+