File: fast.pl

package info (click to toggle)
libmojolicious-perl 2.98%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 2,968 kB
  • sloc: perl: 10,178; sh: 48; makefile: 8
file content (14 lines) | stat: -rw-r--r-- 386 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use FindBin;
use lib "$FindBin::Bin/../lib";
use Mojo::Base 'Mojolicious';

# "This snow is beautiful. I'm glad global warming never happened.
#  Actually, it did. But thank God nuclear winter canceled it out."
sub handler {
  my $tx = pop;
  $tx->res->code(200)->body('Hello World!');
  $tx->resume;
}

# Fast "Hello World" application for profiling the HTTP stack
__PACKAGE__->start;