MarpaX-Role-Parameterized-ResourceIdentifier
view release on metacpan or search on metacpan
method in read-only by default
- LDAPString decoding
- ldaps
- Role/ldap.pm: default port
- ResourceIdentifier/BNF.pm: use ref() to detect if we push or not
- ldap
- Possibility to overwrite charset by locally setting
$MarpaX::Role::Parameterized::ResourceIdentifier::BNF::pct_encoded_default_charset
- https common role
- around on the builder instead of the method
- query_form and query_keywords
- overload fix, encoding charset dependency on spec
- centralized arg2arg handling uri compat mode
- Role/http.pm
- Fixed comment in percent_encode
- generic helpers
- issues seen when testing ftp scheme
- ftp: [0] issue
- add can_scheme
- ftp: dev+
- host(): fix for ipv6
lib/MarpaX/Role/Parameterized/ResourceIdentifier/BNF.pm view on Meta::CPAN
my $this = $_;
$this =~ s/\+/ /g;
$_[0]->unescape($this)
}
map {
/=/ ? 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..$#_];
@copy = @{$copy[0]} if @copy == 1 && ref($copy[0]) eq "ARRAY";
for (@copy) { s/([;\/?:@&=+,\$\[\]%])/$_[0]->percent_encode($1)/eg; }
$_[0]->path_query($_[0]->_raw_struct->{path}, @copy ? join('+', @copy) : undef);
}
return if !defined($old) || !defined(wantarray);
( run in 0.424 second using v1.01-cache-2.11-cpan-299005ec8e3 )