# # RegularTriangle.pm -- 正三角形のユーティリティを集めるモジュール # (継承版)(完成版) # # sample file name: RegularTriangle.pm.005 package RegularTriangle; use base 'Triangle'; sub space { my ($class, $a) = @_; $class->SUPER::space($a, $a, $a); } 1;