#!/usr/bin/env perl
use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/lib";
use Data::Dumper;
use Mojolicious::Lite;
get '/' => sub {
my $c = shift;
$c->render(text => "Make a new paste");
};
get '/pastebin' => sub {
my $c = shift;
$c->redirect_to('/');
};
get '/pastebin/:pasteid' => sub {
my $c = shift;
my $pasteid = $c->param('pasteid');
$c->stash({pasteid => $pasteid});
$c->render(template => "editor");
};
app->start;
__DATA__
@@ editor.html.ep
Editor