Por que o código está nos tipos de mesa de desreferenciação Net :: SSL onde não vejo a necessidade? - perl, typeglob

Net::SSL faz parte do Crypt :: SSLeay. Enquanto trabalhava em um relatório de bug hoje, fiquei distraído por quantas vezes o pobre velho * fez uma aparição.

Por exemplo, considere Net::SSL::configure:

*$self->{ssl_version} = $ssl_version;
*$self->{ssl_debug} = $ssl_debug;
*$self->{ssl_arg} = $arg;
*$self->{ssl_peer_addr} = $arg->{PeerAddr};
*$self->{ssl_peer_port} = $arg->{PeerPort};

Talvez seja porque eu não estou familiarizado com o Perl pré 5.8, mas eu simplesmente não consigo identificar se há uma razão significativa para usar * no LHS. Não seria apenas *$self->{ssl_peer_port} = $arg->{PeerPort}; ser suficiente? Ou há algo profundo acontecendo aqui (por exemplo, local $_ versus local *_)?

Respostas:

Não tenho o módulo instalado, então não posso verificar com facilidade, mas presumo que seja porque o objeto é um globref; isto é, uma referência a um tipo de vinho abençoado.

Não há aliasing acontecendo aqui. Quando você escreve

 *$self->{ssl_debug} = $ssl_debug;

Primeiro, ele remove o globref de volta para um typeglob completo. Em seguida, ele pega apenas o aspecto hashref do typeglob e prossegue para desreferenciá-lo.

Isso não é uma coisa pré ou pós-5.8.

O que você estava pensando que estava fazendo?

o cristão está (como sempre) no caminho certo. Você pode brincar com IO::Socket e veja o que você pode e não pode fazer com referências a abençoados tipos de vinho.

use IO::Socket;
$foo = IO::Socket->new;

print $foo;                      # IO::Socket=GLOB(0x20467b18)
print *$foo;                     # *Symbol::GEN0
print ref($foo);                 # IO::Socket
print ref(*$foo);                # ""

*$foo->{key} = value;            # ok
$$foo->{key} = value;            # ok
$foo->{key} = value;             # Not a HASH reference at ...