view release on metacpan or  search on metacpan

lib/Apache2/ClickPath/_parse.pm  view on Meta::CPAN

use Digest::MD5 ();
use LWP::UserAgent ();
use HTTP::Response ();

our $VERSION = '1.9';

{
  package Apache2::ClickPath::_parse::UA;
  use base 'LWP::UserAgent';

  sub get_basic_credentials {
    my ($I, $realm, $uri, $isproxy)=@_;
    if( $isproxy ) {
      return @ENV{qw{HTTP_PROXY_USERNAME HTTP_PROXY_PASSWORD}};
    } else {
      return @ENV{qw{HTTP_USERNAME HTTP_PASSWORD}};
    }
  }
}

sub Secret {