#!/usr/bin/perl
use strict;
use lib '../lib';
use Data::Dumper;
use Continuity;
Continuity->new->loop;
sub main {
my $r = shift;
$r->print(qq|
<h2>Parameter Passing Example</h2>
<p>Fill out this form, and I will show you what I learned! This is an
example of some Continuity::Request parameter-getting methods.</p>
<form>
Name: <input type=text name=name>
<br>
Favorite Thing #1: <input type=text name=favorite>
<br>
Favorite Thing #2: <input type=text name=favorite>
<br>
Favorite Thing #3: <input type=text name=favorite>
<br>
<input type=submit name="show_results" value="Show Params">
</form>
|);
$r->next;
my $name = $r->param('name');
my $first_fav = $r->param('favorite');
my @favs = $r->param('favorite');
my %all_hash = $r->params;
my @all_array = $r->params;
my @alt_array = $r->param;
$r->print(qq|
<h2>Okay... this is what I got...</h2>
Name: "$name"<br>
First Fav: "$first_fav"<br>
Favs: @{[ join ',', map { "'$_'" } @favs ]}<br>
All hash:
<pre>
@{[ Dumper(\%all_hash) ]}
</pre>
<br>
All array:
<pre>
@{[ Dumper(\@all_array) ]}
</pre>
<br>
Alternate array:
<pre>
@{[ Dumper(\@alt_array) ]}
</pre>
|);
}