HTTP-Session
1 match

 view release on metacpan or  search on metacpan

examples/session.pl  view on Meta::CPAN 

        request => $req,
    );
}

sub request_handler {
    my $req     = shift;
    my $session = get_session($req);
    my $count = $session->get('count') || 0;
    my $html = tt strip q{
        <?xml version="1.0" encoding="utf-8"?>
        <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
        <html xmlns="http://www.w3.org/1999/xhtml">
            <head></head>
            <body>
                count is <a href="/">[% count |html %]</a><br />
                state is [% session.state | html %]<br />
                session id is [% session.session_id %].
            </body>
        </html>
    };
    $session->set( count => $count + 1 );



( run in 1.119 second using v1.01-cache-2.11-cpan-49f99fa48dc )