home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / auto / LWP / UserAgent / proxy.al < prev   
Encoding:
Text File  |  1997-08-10  |  483 b   |  23 lines
  1. # NOTE: Derived from blib\lib\LWP\UserAgent.pm.  Changes made here will be lost.
  2. package LWP::UserAgent;
  3.  
  4. sub proxy
  5. {
  6.     my($self, $key, $proxy) = @_;
  7.  
  8.     LWP::Debug::trace("$key, $proxy");
  9.  
  10.     if (!ref($key)) {   # single scalar passed
  11.     my $old = $self->{'proxy'}{$key};
  12.     $self->{'proxy'}{$key} = $proxy;
  13.     return $old;
  14.     } elsif (ref($key) eq 'ARRAY') {
  15.     for(@$key) {    # array passed
  16.         $self->{'proxy'}{$_} = $proxy;
  17.     }
  18.     }
  19.     return undef;
  20. }
  21.  
  22. 1;
  23.