程嶏清单14-2.txt

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

sub new 
{
my $this = {};    # Create an anonymous hash, and #self points to it.
bless $this;    # Connect the hash to the package Cocoa.
return $this;    # Return the reference to the hash.
}
1;