程嶏清单14-16.txt

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

sub makeCup {
  my ($class, $cream, $sugar, $dope) = @_;
  print "\n================================== \n"; 
  print "Making a cup \n";
  print "Add cream \n" if ($cream);
  print "Add $sugar sugar cubes\n" if ($sugar);
  print "Making some really addictive coffee ;-} \n" if ($dope);
  print "================================== \n";
}