X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=SCX%2FCar.pm;h=7dffb7a5361df8d184e1a303884e07f8aa5575c8;hb=8d71f3a03548e1c6946914404f2889e9cbbc55be;hp=165d09ecb66d97f934a0ae9d90302d5e097ca977;hpb=cf325864a622b3c2457ca8524fc25f144cd5f7b6;p=slotcarman.git diff --git a/SCX/Car.pm b/SCX/Car.pm index 165d09e..7dffb7a 100644 --- a/SCX/Car.pm +++ b/SCX/Car.pm @@ -3,16 +3,17 @@ package SCX::Car; use strict; +use Time::HiRes qw(gettimeofday); sub new { my ($class, $args) = @_; my $self = { - gui => $args->{gui}, + gui => $args->{gui}, throttle => -1, - fuel => -1, - order => $args->{order}, - track => $args->{track}, + fuel => -1, + id => $args->{id}, + track => $args->{track}, }; bless $self, $class;