Andreas Marschke

#!/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();