147d6c4235df57544abb90f2bed32741283b2d90
[perl/plp/.git] / t / 50-cgi / 61-%post set.plp
1 <:
2 %post = (Foo => 'ok');
3 print join "\n", @post{'Foo', 'foo', '@Foo'};
4 print scalar keys %post;