SCX/Car.pm

   1 #!/usr/bin/perl -w
   2
   3 package SCX::Car;
   4
   5 use strict;
   6
   7 sub new {
   8         my ($class, $args) = @_;
   9
  10         my $self = {
  11                 gui => $args->{gui},
  12                 throttle => -1,
  13                 fuel => -1,
  14                 order => $args->{order},
  15         };
  16
  17         bless $self, $class;
  18
  19         $self->set_throttle(undef);
  20         $self->set_fuel(undef);
  21
  22         return $self;
  23 }
  24
  25 sub gui { return shift->{gui}; }
  26
  27 sub set_throttle {
  28         my ($self, $val) = @_;
  29
  30         return if (!defined $self->{throttle} && !defined $val)
  31                 || (defined $self->{throttle} && defined $val
  32                         && $self->{throttle} == $val);
  33
  34         $self->{throttle} = $val;
  35         $self->gui->set_throttle($self->{order}, $val);
  36 }
  37
  38
  39 sub set_fuel {
  40         my ($self, $val) = @_;
  41
  42         return if (!defined $self->{fuel} && !defined $val)
  43                 || (defined $self->{fuel} && defined $val
  44                         && $self->{fuel} == $val);
  45
  46         $self->{fuel} = $val;
  47         $self->gui->set_fuel($self->{order}, $val);
  48 }
  49
  50 sub set_light {
  51         # TODO
  52 }
  53
  54 sub set_backbutton {
  55         # TODO
  56 }
  57
  58 1;
  59