程嶏清单14-9.txt

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

sub name {
    my $self = shift;
    if (@_) { $self->{NAME} = shift } 
    return $self->{NAME};
}