sub new { my ($class, %options) = @_; my $user = delete $options{user}; my $passwd = delete $options{passwd}; ... my $self = $class->SUPER::new(%options); $self->{user} = $user; $self->{passwd} = $passwd; ... return $self; }
In reply to Re^7: LWP and Digest Authentication
by ikegami
in thread LWP and Digest Authentication
by BrowserUk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |