"I welcome your tutorial." 
use strict;
use warnings;
use Mojolicious::Lite;

my %pages = (
    '/' => {
        title => 'Begin',
        blurb => 'This is where you begin.',
        choices => [
            { text => 'Choice 1', link => '/foo' },
            { text => 'Choice 2', link => '/bar' },
        ],
    },
    'foo' => {
        title => 'Foo',
        blurb => 'This is what happens when you Foo.',
        choices => [
            { text => 'End', link => '/end' },
        ],
    },
    'bar' => {
        title => 'Foo',
        blurb => 'This is what happens when you Bar.',
        choices => [
            { text => 'Restart', link => '/' },
            { text => 'End', link => '/end' },
        ],
    },
    'end' => {
        title => 'End',
        blurb => 'This is the end.',
        choices => [],
    },
);

get '/' => { template => 'index', %{ $pages{'/'} } };

get '/:key' => sub {
    my $c   = shift;
    my $key = $c->param('key');
    return $c->reply->not_found unless $pages{$key};
    $c->render( template => 'index', %{ $pages{$key} } );
};

app->start;

__DATA__
@@ index.html.ep
<html>
<head>
<!-- links to bootstrap here -->
<title><%= $title %></title>
</head>
<body>
<div class="container">
<h1><%= $blurb %></h1>
% for my $choice (@$choices) {
    <a href="<%= $choice->{link} %>" class="btn btn-primary" role="but
+ton"><%= $choice->{text} %></a>
% }
</div>
</body>
</html>

[download]
All that extra code you have is unnecessary.

In reply to Re^3: Choose your own Adventure - for Perl & Windows by Anonymous Monk
in thread Choose your own Adventure - for Perl & Windows by FreeBeerReekingMonk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.