test.pl

来自「perl learn perl by examples」· PL 代码 · 共 7 行

use Car;

foreach (1 .. 3) {
    $c = Car::new_car();
    Car::drive($c);
}