$ dancer2 gen -a dancer2sessionstruct
+ dancer2sessionstruct
+ dancer2sessionstruct\config.yml
+ dancer2sessionstruct\cpanfile
+ dancer2sessionstruct\Makefile.PL
+ dancer2sessionstruct\MANIFEST.SKIP
+ dancer2sessionstruct\bin
+ dancer2sessionstruct\bin\app.pl
+ dancer2sessionstruct\bin\app.psgi
+ dancer2sessionstruct\environments
+ dancer2sessionstruct\environments\development.yml
+ dancer2sessionstruct\environments\production.yml
+ dancer2sessionstruct\lib
+ dancer2sessionstruct\lib\dancer2sessionstruct.pm
+ dancer2sessionstruct\public
+ dancer2sessionstruct\public\dispatch.cgi
+ dancer2sessionstruct\public\dispatch.fcgi
+ dancer2sessionstruct\public\404.html
+ dancer2sessionstruct\public\500.html
+ dancer2sessionstruct\public\favicon.ico
+ dancer2sessionstruct\public\css
+ dancer2sessionstruct\public\css\error.css
+ dancer2sessionstruct\public\css\style.css
+ dancer2sessionstruct\public\images
+ dancer2sessionstruct\public\images\perldancer-bg.jpg
+ dancer2sessionstruct\public\images\perldancer.jpg
+ dancer2sessionstruct\public\javascripts
+ dancer2sessionstruct\public\javascripts\jquery.js
+ dancer2sessionstruct\t
+ dancer2sessionstruct\t\001_base.t
+ dancer2sessionstruct\t\002_index_route.t
+ dancer2sessionstruct\views
+ dancer2sessionstruct\views\index.tt
+ dancer2sessionstruct\views\layouts
+ dancer2sessionstruct\views\layouts\main.tt

$ edit dancer2sessionstruct\lib\dancer2sessionstruct.pm

package dancer2sessionstruct;
use Dancer2;

our $VERSION = '0.1';


#~ setting( session => 'PSGI' );

get '/' => sub {
    template 'index';
};
 
get '/setstruct' => sub {
    session "struct" => [1,2,3, rand 10000, rand 1000 ];
    session "stupid_struct" => [1,2,3, rand 10000, rand 1000 ];
#~     redirect uri_for('/printstruct');
    my $url = uri_for('/printstruct');
    return qq{<a href="$url">$url</a>};
};

get '/printstruct' => sub {
    my $struct = eval { join ' ', @{ session("struct") }; } || 'no struct';
    my $sstruct = eval { join ' ', @{ session("stupid_struct") }; } || 'no sstruct';
    return "struct $struct\nsstruct $sstruct\n";
};

true;

$ perl dancer2sessionstruct\bin\app.pl

$ plackup dancer2sessionstruct\bin\app.psgi