view release on metacpan or  search on metacpan

t/02_flash.t  view on Meta::CPAN

        $c->flash_now(honey => "Honey");
        $c->flash_keep;
        $c->render('index.tx', +{
            flash => $c->flash,
        });
    };

    __PACKAGE__->to_app;
};

sub deftest($&) {
    my ($desc, $sub) = @_;
    subtest $desc => sub {
        test_psgi(
            app => $app,
            client => sub {
                my $cb = shift;
                $cb->(HTTP::Request->new(GET => "http://localhost/session")); # set session_id
                $sub->($cb);
                done_testing;
            }