Perl6 物件導向支援繼承,而且也支援多重繼承。我們來看一下繼承的簡易用法:
# 父類別 P
class P {
has $.f1;
method sm {
say $.f1;
}
method pm {
$.f1 * 100;
}
};
# 子類別 S
class S is P { # S 繼承自 P
method pm { # 遮掉父類別的 pm 方法
$.f1 * 500;
}
};
# $s 是 Class S 的物件實例,使用建構子 new 設定所繼承的 f1 欄位值
my S $s .= new(f1 => 66);
$s.sm; # 印出 $.f1 欄位值
say $s.pm; # 印出 $.f1 * 500 的值
# => 結果:
# 66
# 33000
