home *** CD-ROM | disk | FTP | other *** search
/ CLIX - Fazer Clix Custa Nix / CLIX-CD.cdr / mac / lib / auto / LWP / UserAgent / is_protocol_supported.al < prev    next >
Text File  |  1997-12-13  |  459b  |  19 lines
  1. # NOTE: Derived from :lib:LWP:UserAgent.pm.  Changes made here will be lost.
  2. package LWP::UserAgent;
  3.  
  4. sub is_protocol_supported
  5. {
  6.     my($self, $scheme) = @_;
  7.     if (ref $scheme) {
  8.     # assume we got a reference to an URI::URL object
  9.     $scheme = $scheme->abs->scheme;
  10.     } else {
  11.     Carp::croak("Illeal scheme '$scheme' passed to is_protocol_supported")
  12.         if $scheme =~ /\W/;
  13.     $scheme = lc $scheme;
  14.     }
  15.     return LWP::Protocol::implementor($scheme);
  16. }
  17.  
  18. 1;
  19.