Return to dudelicious.pl CVS log | Up to [local] / todotxt / Text-Todo / bin |
File: [local] / todotxt / Text-Todo / bin / dudelicious.pl (download)
Revision 1.2, Mon Apr 26 20:27:57 2010 UTC (14 years, 2 months ago) by andrew
Make it a package so it can be tested. Not quite sure how to do that yet, but it should come. |
#!/usr/bin/env perl package Dudelicious; BEGIN { use FindBin; use lib "$FindBin::Bin/mojo/lib" } use Mojolicious::Lite; get '/' => 'index'; get '/:groovy' => sub { my $self = shift; $self->render_text($self->param('groovy'), layout => 'funky'); }; app->start; __DATA__ @@ index.html.ep % layout 'funky'; Yea baby! @@ layouts/funky.html.ep <!doctype html><html> <head><title>Funky!</title></head> <body><%== content %></body> </html>