Select Code to Download

push @{$self->{'.parameters'}}, $param;

# 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} );
        }
    }