1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#!perl
use strict;
use warnings;
use Web::Machine;
{
package YAPC::NA::2012::Example030::Resource;
use strict;
use warnings;
use parent 'Web::Machine::Resource';
our @MESSAGES = ();
sub save_message { push @MESSAGES => $_[1] }
sub get_messages { @MESSAGES }
sub allowed_methods { [qw[ GET POST ]] }
sub content_types_provided { [ { 'text/html' => 'to_html' } ] }
sub to_html {
my $self = shift;
'<html><body><form method="POST"><input type="text" name="message" />'
. '<input type="submit" /></form><hr/><ul>'
. (join '' => map { '<li>' . $_ . '</li>' } $self->get_messages)
. '</ul></body></html>'
}
sub process_post {
my $self = shift;
$self->save_message( $self->request->param('message') );
$self->response->header('Location' => '/');
return \301;
}
}
Web::Machine->new( resource => 'YAPC::NA::2012::Example030::Resource' )->to_app;
|
