程嶏清单14-26.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 7 行

package Monitor;
@ISA = qw(Component);
# Hard-code prices and rebates for now
sub new {
 $pkg = shift; $pkg->SUPER::new("Monitor", 400, 15)
}