程嶏清单14-26.txt

< linux网络编程工具>>配套源码

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