#!/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!");
}