File: MojoliciousTestController.pm

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 (12 lines) | stat: -rw-r--r-- 322 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
 
package MojoliciousTestController;
use Mojo::Base 'Mojolicious::Controller';

# "My folks were always on me to groom myself and wear underpants.
#  What am I, the pope?"
sub index {
  my $self = shift;
  $self->res->headers->header('X-Bender' => 'Bite my shiny metal ass!');
  $self->render_text("No class works!");
}

1;