use lib 'perl/';

sub DEBUG {1;}
use mmCGI;

print mmCGI::CombineQuery( { 'a' => {'x'=>[1, 2, 3], 'y'=>'asdf' },
                             'c' => 'd' } ) . "\n";



'a' => { 'x' => [1 2 3], 'y' => 4 };

a->@x = 1
a->@x = 2
a->@x = 3
a->y = 4

'a' => [ { 'y'=> 3,'x' => [1 2 3] }, {'x' => [1 2 3] } ]

a[0]->y = 3
a[0]->@x = 1
a[0]->@x = 2
a[0]->@x = 3

@a[-1]->@x

a->x[]
a[]->


#print mmCGI::CombineQuery( { 'a' => 'b', 'c' => 'd' } ) . "\n";


#print mmCGI::CombineQuery( 'a' => 'b', 'c' => 'd', {'action'=> 'act.cgi'} )
#    . "\n";


#print mmCGI::CombineQuery( 'a' => 'b', {'x'=>1,'y'=>2}, 
#                           '_opts' => {'except' => ['a' ] }, 
#                           'c' => 'd', {'ckey' => 'asdf'} ) . "\n";


#print mmCGI::CombineFormOpts( 'a' => 'b', {'x'=>1,'y'=>2}, 
#                           '_opts' => {'except' => ['a' ] }, 
#                           'c' => 'd', {'ckey'=>'asdf'} ) . "\n";

#my $h = { 'a' => 's', 'd' => 'f' };

#my @b = %{$h};
#print @b, "\n";

