view release on metacpan or search on metacpan
lib/AWS/S3/Roles/Request.pm view on Meta::CPAN
} else {
$uri->path( $escaped_path )
}
}
$uri->query_keywords( $self->_subresource )
if $m->has_attribute('_subresource');
$uri;
}
);
view release on metacpan or search on metacpan
t/author-live_engine_request_parameters.t view on Meta::CPAN
);
ok( my $response = request($request), 'Request' );
ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
is( $creq->{uri}->query, 'query+string', 'Catalyst::Request POST query_string' );
is( $creq->query_keywords, 'query string', 'Catalyst::Request query_keywords' );
is_deeply( $creq->{parameters}, $parameters, 'Catalyst::Request parameters' );
ok( $response = request('http://localhost/dump/request/a/b?x=1&y=1&z=1'), 'Request' );
ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
is( $creq->{uri}->query, 'x=1&y=1&z=1', 'Catalyst::Request GET query_string' );
view release on metacpan or search on metacpan
t/live_engine_request_parameters.t view on Meta::CPAN
);
ok( my $response = request($request), 'Request' );
ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
is( $creq->{uri}->query, 'query+string', 'Catalyst::Request POST query_string' );
is( $creq->query_keywords, 'query string', 'Catalyst::Request query_keywords' );
is_deeply( $creq->{parameters}, $parameters, 'Catalyst::Request parameters' );
ok( $response = request('http://localhost/dump/request/a/b?x=1&y=1&z=1'), 'Request' );
ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
is( $creq->{uri}->query, 'x=1&y=1&z=1', 'Catalyst::Request GET query_string' );
view release on metacpan or search on metacpan
t/live_engine_request_parameters.t view on Meta::CPAN
);
ok( my $response = request($request), 'Request' );
ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
is( $creq->{uri}->query, 'query+string', 'Catalyst::Request POST query_string' );
is( $creq->query_keywords, 'query string', 'Catalyst::Request query_keywords' );
is_deeply( $creq->{parameters}, $parameters, 'Catalyst::Request parameters' );
ok( $response = request('http://localhost/dump/request/a/b?x=1&y=1&z=1'), 'Request' );
ok( eval '$creq = ' . $response->content, 'Unserialize Catalyst::Request' );
is( $creq->{uri}->query, 'x=1&y=1&z=1', 'Catalyst::Request GET query_string' );
view release on metacpan or search on metacpan
lib/Catalyst.pm view on Meta::CPAN
=over 4
=item * Request method, path, and remote IP address
=item * Query keywords (see L<Catalyst::Request/query_keywords>)
=item * Request parameters
=item * File uploads
lib/Catalyst.pm view on Meta::CPAN
$c->log->debug(qq/"$method" request for "$path" from "$address"/);
$c->log_request_headers($request->headers);
if ( my $keywords = $request->query_keywords ) {
$c->log->debug("Query keywords are: $keywords");
}
$c->log_request_parameters( query => $request->query_parameters, $request->_has_body ? (body => $request->body_parameters) : () );
view release on metacpan or search on metacpan
lib/DiaColloDB/WWW/CGI.pm view on Meta::CPAN
sub uriAuthority { $_[0]->uri($_[1])->authority; }
sub uriPathQuery { $_[0]->uri($_[1])->path_query; }
sub uriPathSegments { [$_[0]->uri($_[1])->path_segments]; }
sub uriQuery { $_[0]->uri($_[1])->query; }
sub uriQueryForm { {$_[0]->uri($_[1])->query_form}; }
sub uriQueryKeywords { [$_[0]->uri($_[1])->query_keywords]; }
## $userinfo = $dbcgi->uriUserInfo($uri?)
## $host = $dbcgi->uriHost($uri?)
## $port = $dbcgi->uriPort($uri?)
sub userinfo { $_[0]->uri($_[1])->userinfo; }
view release on metacpan or search on metacpan
}
if ($self->{'debug'}) {
print $self->method, " $url ", join(' - ', @array), "\n";
}
if ($self->{'isindex'}) {
$url->query_keywords( $self->{'fieldvals'}->{'keywords'} );
return GET $url;
} elsif (uc($self->method) eq "POST") {
my $referer = $self->referer;
if ($self->{'upload'}) {
if (defined($referer)) {
view release on metacpan or search on metacpan
lib/MarpaX/Role/Parameterized/ResourceIdentifier/BNF.pm view on Meta::CPAN
/=/ ? split(/=/, $_, 2) : ($_ => '')
}
split(/[&;]/, $old);
}
);
install_modifier($whoami, 'fresh', query_keywords =>
sub {
my $old = $_[0]->query;
if ($#_ > 0) {
# Try to set query string
my @copy = @_[1..$#_];
view release on metacpan or search on metacpan
lib/POE/Component/XUL.pm view on Meta::CPAN
if( $referer and $referer =~ /https/ ) {
$uri->scheme( 'https' );
}
$uri->path( '/start.xul' );
my $app = $req->param( 'app' );
$uri->query_keywords( $app );
return $uri;
}
############################################################################
# Error handling
view release on metacpan or search on metacpan
lib/POEx/URI.pm view on Meta::CPAN
my $new = shift;
unless( ref $new ) {
$self->query( $new );
}
elsif( 'ARRAY' eq ref $new ) {
$self->query_keywords( $new );
}
else {
$self->query_form( $new );
}
}
lib/POEx/URI.pm view on Meta::CPAN
$old = $uri->argument( $new_arg );
$old = $uri->argument( %new_arg );
$old = $uri->argument( \@new_arg );
Sets and returns the argument for this $uri. And argument may be a string,
a hash (L<URI/query_form>) or an arrayref (L<URI/query_keywords>).
See L</as_array> to see how the argument is passed to the event handler.
=head2 user
view release on metacpan or search on metacpan
local/lib/perl5/URI.pm view on Meta::CPAN
is not necessarily a no-op, as it may reorder the key/value pairs.
The values returned by the query_param() method should stay the same
though.
=item $uri->query_keywords
=item $uri->query_keywords( $keywords, ... )
=item $uri->query_keywords( \@keywords )
Sets and returns query components that use the
keywords separated by "+" format.
The keywords can be set either by passing separate keywords directly
view release on metacpan or search on metacpan
lib/Plack/Middleware/DebugLogging.pm view on Meta::CPAN
=over 4
=item * Request method, path, and remote IP address
=item * Query keywords (see L<Catalyst::Request/query_keywords>)
=item * Request parameters
=item * File uploads
view release on metacpan or search on metacpan
lib/Reaction/UI/ViewPort/Field/Role/Choices.pm view on Meta::CPAN
);
sub str_to_ident {
my ($self, $str) = @_;
my $u = URI->new('','http');
$u->query($str);
return ($u->query_keywords ? ($u->query_keywords)[0] : { $u->query_form });
};
sub obj_to_str {
my ($self, $obj) = @_;
return $obj unless ref($obj);
confess "${obj} not an object" unless blessed($obj);
view release on metacpan or search on metacpan
t/URI-AnyService.t view on Meta::CPAN
TO_JSON => $full_url,
# _query methods
query => 'query=value',
query_form => [qw< query value >],
query_keywords => undef,
query_param => [qw< query >],
query_form_hash => { query => 'value' },
# _generic methods
authority => 'user@www.example.com',
view release on metacpan or search on metacpan
lib/URI/Builder.pm view on Meta::CPAN
=item * path_segments
=item * query_form
=item * query_keywords
=item * fragment
=back
lib/URI/Builder.pm view on Meta::CPAN
are joined. It defaults to C<';'> but can be usefully set to '&'.
The accessors for these attributes have a similar interface to the L<URI>
methods, that is to say that they return old values when new ones are set.
Those attributes that take a list of values: C<path_segments>, C<query_form>
and C<query_keywords> all return plain lists but can be passed nested array
references.
=cut
my (@uri_fields, %listish, @fields);
lib/URI/Builder.pm view on Meta::CPAN
userinfo
host
port
path_segments
query_form
query_keywords
fragment
);
# Fields that contain lists of values
%listish = map { $_ => 1 } qw(
path_segments
query_form
query_keywords
);
# All fields
@fields = ( @uri_fields, qw( query_separator ));
lib/URI/Builder.pm view on Meta::CPAN
}
=head2 query
Returns a string representation of the query. This is obtained from either
C<query_form> or C<query_keywords>, in that order.
If an argument is passed, it is parsed to populate C<query_form>.
=cut
lib/URI/Builder.pm view on Meta::CPAN
my $uri = URI->new;
$uri->query_form(\@form, $self->query_separator);
$old = $uri->query();
}
else {
$old = join '+', $self->query_keywords;
}
$self->query_form(@new);
return $old;
lib/URI/Builder.pm view on Meta::CPAN
via URI::_server -> URI::_generic -> URI: scheme
via URI::_server -> URI::_generic -> URI: secure
via URI::_server -> URI::_generic -> URI::_query: equery
via URI::_server -> URI::_generic -> URI::_query: query
via URI::_server -> URI::_generic -> URI::_query: query_form
via URI::_server -> URI::_generic -> URI::_query: query_keywords
view release on metacpan or search on metacpan
lib/URI/PathAbstract.pm view on Meta::CPAN
=head2 ->query
=head2 ->query_form
=head2 ->query_keywords
=head2 ->userinfo
=head2 ->host
lib/URI/PathAbstract.pm view on Meta::CPAN
canonical
eq
authority
query
query_form
query_keywords
userinfo
host
port
host_port
default_port
view release on metacpan or search on metacpan
lib/URI/Platonic.pm view on Meta::CPAN
{
my @handles = qw(
authority opaque userinfo host_port
scheme host port path query fragment
path_query path_segments
query_form query_keywords
as_string
);
for my $method (@handles) {
__PACKAGE__->meta->add_method($method, sub {
view release on metacpan or search on metacpan
is not necessarily a no-op, as it may reorder the key/value pairs.
The values returned by the query_param() method should stay the same
though.
=item $uri->query_keywords
=item $uri->query_keywords( $keywords, ... )
=item $uri->query_keywords( \@keywords )
Sets and returns query components that use the
keywords separated by "+" format.
The keywords can be set either by passing separate keywords directly
view release on metacpan or search on metacpan
t/04_catalyst_request.t view on Meta::CPAN
'application/json' => sub { "DUMMY" },
'application/x-www-form-urlencoded' => sub { "DUMMY" }
},
'env' => {},
'cookies' => {},
'query_keywords' => '',
'protocol' => 'HTTP/1.1',
'hostname' => '1.2.3.4',
'remote_user' => undef,
'address' => '1.2.3.4',
'_path' => 'coldwell-banker-anunturi/de-vanzare-teren-500-m-sup-2-sup-in-cluj-napoca-zona-manastur-cbl04434.html',
view release on metacpan or search on metacpan
lib/WWW/REST.pm view on Meta::CPAN
=head2 Methods derived from URI
clone scheme opaque path fragment as_string canonical eq
abs rel authority path path_query path_segments query query_form
query_keywords userinfo host port host_port default_port
=head2 Methods derived from LWP::UserAgent
request send_request prepare_request simple_request request
protocols_allowed protocols_allowed protocols_forbidden
view release on metacpan or search on metacpan
lib/Web/Request.pm view on Meta::CPAN
default => sub {
my $self = shift;
my %params = (
$self->uri->query_form,
(map { $_ => '' } $self->uri->query_keywords),
);
return {
map { $self->_decode($_) } map { $_ => $params{$_} } keys %params
};
},
view release on metacpan or search on metacpan
local/lib/perl5/URI.pm view on Meta::CPAN
is not necessarily a no-op, as it may reorder the key/value pairs.
The values returned by the query_param() method should stay the same
though.
=item $uri->query_keywords
=item $uri->query_keywords( $keywords, ... )
=item $uri->query_keywords( \@keywords )
Sets and returns query components that use the
keywords separated by "+" format.
The keywords can be set either by passing separate keywords directly