X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fmojonode.pl;fp=perl%2Fmojonode.pl;h=12c94392dc4e8fabc9e1e3faded5122d11129183;hb=3e1e7b56903a67dde9ea8ecebbc507fcf9bbb402;hp=0000000000000000000000000000000000000000;hpb=6b904a6db275029dd6d7a5cf0a48c1f0770ea8c2;p=spider.git
diff --git a/perl/mojonode.pl b/perl/mojonode.pl
new file mode 100755
index 00000000..12c94392
--- /dev/null
+++ b/perl/mojonode.pl
@@ -0,0 +1,63 @@
+#!/usr/bin/env perl
+use Mojolicious::Lite;
+
+# Documentation browser under "/perldoc"
+plugin 'PODRenderer';
+plugin 'DefaultHelpers';
+
+app->secrets(['A:new.&.S3cure!passw0rd?']);
+app->sessions->cookie_name('DXSpider');
+
+get '/' => sub {
+ my $self = shift;
+ $self->render('index');
+};
+
+
+# Not found (404)
+get '/missing' => sub { shift->render('does_not_exist') };
+
+# Exception (500)
+get '/dies' => sub { die 'Intentional error' };
+
+app->start;
+
+
+__DATA__
+
+@@ index.html.ep
+% layout 'default';
+% title 'Welcome';
+Welcome to the Mojolicious real-time web framework!
+
+@@ layouts/default.html.ep
+
+
+
+
+
+
+ <%= title %>
+
+
+
+
+
+
+
+
+
+ <%= title %>
+
+ <%= content %>
+
+
+
+
+
+
+
+