Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- =head1 NAME
- MojoApp - An app for testing Mojolicious
- =head1 SYNOPSIS
- =head1 DESCRIPTION
- =cut
- our $VERSION = '0.001';
- use 5.010_000;
- use strict;
- use warnings;
- use Data::Dumper;
- use Mojolicious::Lite;
- #use MyMojoDB;
- get '/' => sub {
- my $self = shift;
- $self->render('index');
- };
- get '/snippets' => sub {
- my $self = shift;
- my $page = $self->param('cmd') if defined $self->param('cmd');
- $self->stash( pagenum => 0);
- $self->stash( maxpagenum => 0);
- $self->stash( snip_list => [ qw/ n004 n003 n002 n001 n000 / ] );
- $self->stash( snip_title => { n004 => "Cool things in Perl",
- n003 => "Cool things with Moose",
- n002 => "Cool things in Mojolicious",
- n001 => "Awesome code",
- n000 => "Wellcome to the coding horror"});
- $self->stash( snip_desc => { n004 => "This code is awesom.",
- n003 => "This code is awesom.",
- n002 => "This code is awesom.",
- n001 => "This code is awesom.",
- n000 => "This code is awesom."} );
- $self->stash( snip_content => { n004 => "#################",
- n003 => "#################",
- n002 => "#################",
- n001 => "#################",
- n000 => "#################"} );
- $self->render('snippets_show_list');
- # unless (! defined $page ) {
- # if ( $page =~ m/^show$/ ) {
- # &render_showsnip($self, $self->param('num'));
- # } elsif ($page =~ m/^list$/ ) {
- # &render_listsnip($self, $self->param('num'));
- # } elsif ($page =~ m/^make$/) {
- # &render_makesnip($self);
- # } else {
- # $self->render('snippets_show_list');
- # }
- # }
- };
- sub render_showsnip {
- my $self = shift;
- my $snippetnumber = shift;
- # my $mojoapp = MyMojoDB->new("dbi:pg:mymojodb:192.168.100.230:5432",$user,$password);
- $self->render('snippets_show_list');
- }
- app->start();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement