Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 30 lines (24 sloc) 409 Bytes
#!/usr/bin/env perl
use Mojolicious::Lite;
use lib 'lib';
plugin 'PPI';
get '/' => sub {
my $self = shift;
$self->stash( file => __FILE__ );
$self->render('quine');
};
app->start;
__DATA__
@@ quine.html.ep
% title 'A Mojolicious "Quine"';
<!DOCTYPE html>
<html>
<head>
<title><%= title %></title>
%= ppi_css
</head>
<body>
<h2><%= title %></h2>
%= ppi $file
</body>
</html>
Something went wrong with that request. Please try again.