home *** CD-ROM | disk | FTP | other *** search
/ CLIX - Fazer Clix Custa Nix / CLIX-CD.cdr / mac / lib / auto / LWP / UserAgent / proxy.al < prev   
Text File  |  1997-12-13  |  457b  |  23 lines
  1. # NOTE: Derived from :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.