brianmed

#!/opt/perl

use Mojolicious::Lite;


get '/' => sub {
    my $self = shift;
    
    $self->render("slash");
};

brianmed

#!/opt/perl

use Mojolicious::Lite;

get '/' => sub {
    my $self = shift;

    $self->render("slash");
};

brianmed

#!/opt/perl

use Mojolicious::Lite;

get '/' => sub {
    my $self = shift;

    $self->render("slash");
};

brianmed

#!/opt/perl

use Mojolicious::Lite;

get '/' => sub {
    my $self = shift;

    $self->app->log->debug("get");

    $self->render("slash");

brianmed

use strict;
use warnings;

# $DB::deep = 500;
    
use FindBin;
BEGIN { unshift @INC, "$FindBin::Bin/../lib" }

# $DB::single = 1;
InfoServant::Start->start_app('InfoServant');

brianmed

#!/opt/perl

use Mojolicious::Lite;

plugin 'tt_renderer';
app->renderer->default_handler('tt');

sub eval_me {
    my $route = shift;
    my $sub = shift;

brianmed

<VirtualHost *:80>
    ServerName infoservant.com
    ServerAlias www.infoservant.com

    ErrorLog logs/infoservant.com-error_log
    CustomLog logs/infoservant.com-access_log combined

    DocumentRoot /opt/infoservant.com/docroot

    <Location />

brianmed

#!/opt/perl
  
use Mojolicious::Lite;
  
get '/' => sub {
    my $self = shift;
  
    die("Here") if $self->param("exception");
  
    $self->render("slash");

brianmed

#!/opt/perl

use Mojolicious::Lite;

get '/' => sub {
    my $self = shift;

    die("Here") if $self->param("exception");

    $self->render("slash");

brianmed

#!/opt/perl
use Mojolicious::Lite;

# Documentation browser under "/perldoc"
plugin 'PODRenderer';

get '/' => sub {
  my $self = shift;
  $self->render('index');
};