程嶏清单14-20.txt

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

# This routine prints the type of $class->{'Coffee'}
sub printType {
   my $class = shift @_;
   print "The type of Coffee is $class->{'Coffee'} \n";
}