如何编写不带引用的优雅Perl代码

正如对这个问题的第一条评论所暗示的,您在这里想要的是多态性。让汽车决定汽车的行为方式,而不是让停车场跟踪外面各种汽车的行为。例如,代替这个:

package Car;

package Ferrari;
use base 'Car';

package Chevrolet;
use base 'Car';

package ParkingLot;

sub add_car {
  if (ref $car = 'Ferrari') {
    $self->park_ferrari;
  } elsif (ref $car = 'Chevrolet') {
    $self->park_chevrolet;
  } else {
    die "Unknown car model!";
  }
}

这样做:

package Car;

sub park {
  # park a generic Car
}

package Ferrari;
use base 'Car';
sub park {
  # take the Ferrari for a spin before parking it
  $self->drive_fast;
  $self->SUPER::park;
}

package Chevrolet;
use base 'Car';
# No sub park defined, so it just parks like a generic Car

package ParkingLot;

sub add_car {
  $car->park;
}

现在,停车场只需要知道它有一辆车,而且车知道它应该怎么做。 park 因此,您可以添加任意多的新车子类,而不必修改Parkinglot。

(请注意,上面的代码是类似Perl的伪代码,不是真正的、可运行的Perl代码。许多细节被故意省略。)

据推测,停车场区分不同类型的汽车是有原因的——例如,被盗的可能性可能在两者之间有所不同。对于Parkinglot所做的每一个区别,试着找出区别基于的汽车属性(或缺乏这种属性),并赋予汽车或其子类这些属性,而不是基于类来决定。

作为一个临时措施,给雪佛兰一辆雪佛兰和法拉利一辆法拉利,并测试这些。