CLIX - Fazer Clix Custa Nix/CLIX-CD.cdr/mac/lib/auto/LWP/UserAgent/is_protocol_supported.al

Text File | 1997-12-13 | 459 b | 19 lines | [TEXT/McPL]

# NOTE: Derived from :lib:LWP:UserAgent.pm.  Changes made here will be lost.
package LWP::UserAgent;

sub is_protocol_supported
{
    my($self, $scheme) = @_;
    if (ref $scheme) {
    # assume we got a reference to an URI::URL object
    $scheme = $scheme->abs->scheme;
    } else {
    Carp::croak("Illeal scheme '$scheme' passed to is_protocol_supported")
        if $scheme =~ /\W/;
    $scheme = lc $scheme;
    }
    return LWP::Protocol::implementor($scheme);
}

1;