use IO::Socket qw[AF_INET inet_aton];
use Carp;
+use utf8;
__PACKAGE__->mk_accessors(
qw/action address arguments cookies headers match method
carp( 'No arguments passed to uri_with()' ) unless $args;
+ for my $value ( values %$args ) {
+ my $isa_ref = ref $value;
+ if( $isa_ref and $isa_ref ne 'ARRAY' ) {
+ croak( "Non-array reference ($isa_ref) passed to uri_with()" );
+ }
+ utf8::encode( $_ ) for $isa_ref ? @$value : $value ;
+ };
my $uri = $self->uri->clone;
$uri->query_form( {