view release on metacpan or  search on metacpan

t/04params.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";

use Test::More tests => 7;
use Catalyst::Test 'TestApp';
use HTTP::Request::Common;
use Tie::Hash::Indexed;

my $creq;

my %params;
tie %params, 'Tie::Hash::Indexed';

my @params = qw/a b c d e f g/;
%params = map { $_ => 1 } @params;