Advertisement
bvn13

Untitled

Mar 22nd, 2013
331
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.60 KB | None | 0 0
  1. #!/usr/bin/env perl
  2. use Mojolicious::Lite;
  3.  
  4. use Data::Dumper;
  5.  
  6. # Documentation browser under "/perldoc"
  7. plugin 'PODRenderer';
  8.  
  9. get '/' => sub {
  10. my $self = shift;
  11. $self->render('index');
  12. };
  13.  
  14. post '/test' => sub {
  15. my $self = shift;
  16. print "Params: " . Dumper $self->req->body_params->to_hash;
  17. $self->render;
  18. };
  19.  
  20. app->start;
  21. __DATA__
  22.  
  23. @@ index.html.ep
  24. % layout 'default';
  25. % title 'Welcome';
  26. Welcome to the Mojolicious real-time web framework!
  27.  
  28. @@ layouts/default.html.ep
  29. <!DOCTYPE html>
  30. <html>
  31. <head><title><%= title %></title></head>
  32. <body><%= content %></body>
  33. </html>
  34.  
  35. @@ test.json.ep
  36. {"res":"ok"}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement