Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use Mojolicious::Lite;
- use utf8;
- get '/RPC2' => sub {
- my $self = shift;
- $self->stash({
- 'message' => 'Hello World!!!',
- });
- } => 'index';
- post '/RPC2' => sub {
- my $self = shift;
- ...
- $self->render_text($xml);
- };
- shagadelic;
- __DATA__
- @@ index.html.ep
- <center><pre><%= $message %></pre></center>
- <form action="/RPC2" method="post">
- <input name="spost" />
- <button>xx</button>
- ção
- </form>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement