CLIX - Fazer Clix Custa Nix/CLIX-CD.cdr/mac/lib/auto/URI/URL/bad_method.al

Text File | 1997-12-13 | 379 b | 16 lines | [TEXT/McPL]

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

# This is set up as an alias for various methods
sub bad_method {
    my $self = shift;
    my $scheme = $self->scheme;
    Carp::croak("Illegal method called for $scheme: URL")
    if $Strict_URL;
    # Carp::carp("Illegal method called for $scheme: URL")
    #     if $^W;
    undef;
}

1;