mackee · August 29, 2015 14:10
diff --git a/app.psgi b/app.psgi
 use strict;
 use warnings;
 use utf8;
 use File::Spec;
 use File::Basename;
 use lib File::Spec->catdir(dirname(__FILE__), 'extlib', 'lib', 'perl5');
 use lib File::Spec->catdir(dirname(__FILE__), 'lib');
 use Amon2::Lite;

 our $VERSION = '0.12';

 # put your configuration here
 sub load_config {
    my $c = shift;

    my $mode = $c->mode_name || 'development';

    +{
        'DBI' => [
            "dbi:SQLite:dbname=$mode.db",
            '',
            '',
        ],
    }
 }

 get '/' => sub {
    my $c = shift;
    return $c->render('index.tt');
 };

 # load plugins
 __PACKAGE__->load_plugin('Web::CSRFDefender' => {
    post_only => 1,
 });
 # __PACKAGE__->load_plugin('DBI');
 # __PACKAGE__->load_plugin('Web::FillInFormLite');
 # __PACKAGE__->load_plugin('Web::JSON');

 __PACKAGE__->enable_session();

 __PACKAGE__->to_app(handle_static => 1);

 __DATA__

 @@ index.tt
 <!doctype html>
 <html>
 <head>
    <meta charset="utf-8">
    <title>SampleApp</title>
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script>
    <script type="text/javascript" src="[% uri_for('/static/js/main.js') %]"></script>
    <link href="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/css/bootstrap-combined.min.css" rel="stylesheet">
    <script src="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/js/bootstrap.min.js"></script>
    <link rel="stylesheet" href="[% uri_for('/static/css/main.css') %]">
 </head>
 <body>
    <div class="container">
        <header><h1>SampleApp</h1></header>
        <section class="row">
            This is an Exception
        </section>
        <footer>Powered by <a href="http://amon.64p.org/">Amon2::Lite</a></footer>
    </div>
 </body>
 </html>

 @@ /static/js/main.js

 @@ /static/css/main.css
 footer {
    text-align: right;
 }
	use strict;
	use warnings;
	use utf8;
	use File::Spec;
	use File::Basename;
	use lib File::Spec->catdir(dirname(__FILE__), 'extlib', 'lib', 'perl5');
	use lib File::Spec->catdir(dirname(__FILE__), 'lib');
	use Amon2::Lite;

	our $VERSION = '0.12';

	# put your configuration here
	sub load_config {
	my $c = shift;

	my $mode = $c->mode_name \|\| 'development';

	+{
	'DBI' => [
	"dbi:SQLite:dbname=$mode.db",
	'',
	'',
	],
	}
	}

	get '/' => sub {
	my $c = shift;
	return $c->render('index.tt');
	};

	# load plugins
	__PACKAGE__->load_plugin('Web::CSRFDefender' => {
	post_only => 1,
	});
	# __PACKAGE__->load_plugin('DBI');
	# __PACKAGE__->load_plugin('Web::FillInFormLite');
	# __PACKAGE__->load_plugin('Web::JSON');

	__PACKAGE__->enable_session();

	__PACKAGE__->to_app(handle_static => 1);

	__DATA__

	@@ index.tt
	<!doctype html>
	<html>
	<head>
	<meta charset="utf-8">
	<title>SampleApp</title>
	<meta name="viewport" content="width=device-width, initial-scale=1.0">
	<script type="text/javascript" src="http://ajax.googleapis.com/ajax/libs/jquery/1.9.1/jquery.min.js"></script>
	<script type="text/javascript" src="[% uri_for('/static/js/main.js') %]"></script>
	<link href="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/css/bootstrap-combined.min.css" rel="stylesheet">
	<script src="//netdna.bootstrapcdn.com/twitter-bootstrap/2.3.1/js/bootstrap.min.js"></script>
	<link rel="stylesheet" href="[% uri_for('/static/css/main.css') %]">
	</head>
	<body>
	<div class="container">
	<header><h1>SampleApp</h1></header>
	<section class="row">
	This is an Exception
	</section>
	<footer>Powered by <a href="http://amon.64p.org/">Amon2::Lite</a></footer>
	</div>
	</body>
	</html>

	@@ /static/js/main.js

	@@ /static/css/main.css
	footer {
	text-align: right;
	}