Perl6 物件導向 (2) 繼承

Home » Perl6 » Perl6入門 » Perl6 物件導向 (2) 繼承
2015-08-23 Perl6入門 尚無留言

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

LEAVE A COMMENT

sixty three  −  fifty eight  =  

這個網站採用 Akismet 服務減少垃圾留言。進一步了解 Akismet 如何處理網站訪客的留言資料