On Wed, 6 Jul 2005, Matt Sergeant wrote:
On 6 Jul 2005, at 16:51, Charlie Brady wrote:
Thoughts?
I'd rather just eval those subs into existence than need another CPAN module
to do something so easy.
OK
Something like:
BEGIN {
my @fields = qw( remote_host remote_ip remote_info remote_port
local_ip local_port
relay_client hello hello_host)
;
foreach my $f (@fields) {
eval 'sub ' . $f . ' { my $self = shift;
Actual subs may need to be slightly different, so that I can clear
atributes from the connection object. Only other alternative is to
construct a new object with selective copying into the constructor, when
switching to TLS mode.
