$SIG{QUIT} = "quit_catcher"; # implies "main::quit_catcher"

 

$SIG{QUIT} = *quit_catcher; # forces current package’s sub

 

繼承用parent了:

 

package Horse;

 

use parent qw(Critter);

 

可以把其他類的子函數借來用用,INVOCANT–>DOES(ROLE)
創作者介紹
創作者 shadow 的頭像
shadow

資訊園

shadow 發表在 痞客邦 留言(0) 人氣()