#!/usr/bin/env perl
use strict;
use warnings;
use MVC::Neaf;
my $tpl = <<"HTML";
[% title | html %] - [% file | html %]
[% title | html %]
Not ready yet...
Don't forget to look at the server logs if you see anything unusual.
HTML
get '/11/oops' => sub {
my $req = shift;
return {
file => 'example/11 NEAF '.MVC::Neaf->VERSION,
title => 'Traceable error response',
};
}, -template => \$tpl, -view => 'TT', description => "Unexpected error demo";
# This would affect other examples as well! C'est la vie
neaf pre_route => sub {
my $req = shift;
$req->param( die => "pre_route" )
and die "Pre-route failed upon request";
};
# This never returns anything useful
get + post '/11/js' => sub {
my $req = shift;
return "Text"
if $req->param( ret => 1 );
return {
-view => 'TT',
-template => \'[% END %]',
}
if $req->param( tpl => 1 );
die "Foobared";
};
neaf->run;