view release on metacpan or  search on metacpan

t/01-json_decoder.t  view on Meta::CPAN

use strict;
use warnings;
use lib 't/lib';
use Test::More;
use JSON::Any;
use HTTP::Request::Common;

BEGIN {
    use_ok 'Catalyst::Test', 'Simple';
}

my $param = {
    bar => 1,
    baz => 1,
};
my ( $res, $ctx ) = ctx_request(

t/author/00-utf8.t  view on Meta::CPAN

use strict;
use warnings;
use lib 't/lib';
use Test::More;
use JSON::Any;
use HTTP::Request::Common;
use utf8;

BEGIN {
    use_ok 'Catalyst::Test', 'Simple';
}

my $param = { foo => 'áçéò' };
my ( $res, $ctx ) = ctx_request(
    '/?' . 'param='
    . JSON::Any->new->encode($param)