dancer-session-example.pl

#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;

use Dancer2;

set session => 'Simple';

hook before => sub {
    return if request->path_info =~ m{^/there$};
    session 'foo' => 'bar';
    redirect "/there";
};

get '/' => sub {
    return "index";
};

get '/there' => sub {
    return session('foo');
};

start;