#!/usr/bin/perl use strict; use lib '../lib'; use Continuity; Continuity->new->loop; sub main { my $r = shift; $r->set_cookie( CGI->cookie( -name => 'continuity-cookie-demo', -value => 10)); $r->print("Setting 'continuity-cookie-demo' to 10"); $r->next; my $val1 = $r->get_cookie('continuity-cookie-demo'); $r->print("Got 'continuity-cookie-demo' == $val1"); $r->next; my $val2 = $r->get_cookie('continuity-cookie-demo'); $r->set_cookie( CGI->cookie( -name => 'continuity-cookie-demo', -value => 20)); $r->print("... still got 'continuity-cookie-demo' == $val2"); $r->print("Setting 'continuity-cookie-demo' to 20"); $r->next; my $val3 = $r->get_cookie('continuity-cookie-demo'); $r->print("Got 'continuity-cookie-demo' == $val3"); $r->print("All done with cookie demo!"); }