use strict;
use warnings;
-our $VERSION = '0.16';
+our $VERSION = '0.17';
use URI;
use URI::Escape ();
$join = '&' if $exp->{ op } =~ /[?&]/;
if ( ref $value eq 'ARRAY' ) {
- return unless @$value;
+ if( !@$value ) {
+ return if $var->{ explode };
+ return $var->{ name } . '=';
+ }
if ( $var->{ explode } ) {
return join( $join,
map { $var->{ name } . '=' . _quote( $_, $safe ) } @$value );
}
}
elsif ( ref $value eq 'HASH' ) {
- return unless keys %$value;
+ if( !keys %$value ) {
+ return if $var->{ explode };
+ return $var->{ name } . '=';
+ }
if ( $var->{ explode } ) {
return join(
$join,
=head1 COPYRIGHT AND LICENSE
-Copyright 2007-2012 by Brian Cassidy
+Copyright 2007-2013 by Brian Cassidy
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.