keywords.al

来自「ARM上的如果你对底层感兴趣」· AL 代码 · 共 23 行

# NOTE: Derived from blib\lib\URI\URL\http.pm.
# Changes made here will be lost when autosplit again.
# See AutoSplit.pm.
package URI::URL::http;

#line 16 "blib\lib\URI\URL\http.pm (autosplit into blib\lib\auto/URI\URL\http/keywords.al)"
# Handle ...?dog+bones type of query
sub keywords {
    my $self = shift;
    $old = $self->{'query'};
    if (@_) {
	# Try to set query string
	$self->equery(join('+', map { URI::Escape::uri_escape($_, $URI::URL::reserved) } @_));
    }
    return if !defined($old) || !defined(wantarray);

    Carp::croak("Query is not keywords") if $old =~ /=/;
    map { URI::Escape::uri_unescape($_) } split(/\+/, $old);
}

# end of URI::URL::http::keywords
1;