##
# new() hash constructor
print "Testing: new() hash constructor\n" if $debug;
$q = new CGI::Simple( { 'foo'=>'1', 'bar'=>[2,3,4] } );
@av = $q->param;
ok( (join' ',@av), 'foo bar' ); #68
##
##
elsif ( (ref $init) =~ m/HASH/i ) { # initialize from param hash
for my $param( keys %{$init} ) {
$self->_add_param( $param, $init->{$param} );
}
}