15 lines
330 B
Perl
15 lines
330 B
Perl
package Lemonldap::NG::Common::UserAgent;
|
|
|
|
use LWP::UserAgent;
|
|
|
|
sub new {
|
|
my ( $class, $conf ) = @_;
|
|
my $opts = $conf->{lwpOpts} || {};
|
|
$opts->{ssl_opts} = $conf->{lwpSslOpts} if ( $conf->{lwpSslOpts} );
|
|
my $ua = LWP::UserAgent->new(%$opts);
|
|
push @{ $ua->requests_redirectable }, 'POST';
|
|
return $ua;
|
|
}
|
|
|
|
1;
|