Amon2

 view release on metacpan or  search on metacpan

share/flavor/Basic/script/server.pl  view on Meta::CPAN

%% cascade "Minimum/script/server.pl"

%% override load_modules -> {
use <% $module %>::Web;
use <% $module %>;
use URI::Escape;
use File::Path ();
%% }

%% override app -> {
my $app = builder {

share/flavor/Basic/t/00_compile.t  view on Meta::CPAN

<% cascade "Minimum/t/00_compile.t" %>
<% after load_modules -> { %>
use <% $module %>::DB::Schema;
use <% $module %>::Web::Dispatcher;
<% } %>

share/flavor/Basic/t/Util.pm  view on Meta::CPAN

%% cascade "Minimum/t/Util.pm"

%% after export -> {
    slurp
%% }

%% after functions -> {
sub slurp {
    my $fname = shift;
    open my $fh, '<:encoding(UTF-8)', $fname or die "$fname: $!";
    scalar do { local $/; <$fh> };

share/flavor/Basic/tmpl/index.tx  view on Meta::CPAN

: cascade "include/layout.tx"

: override content -> {

<h1 style="padding: 70px; text-align: center; font-size: 80px; line-height: 1; letter-spacing: -2px;">Hello, Amon2 world!</h1>

<hr />

<style>
    .marketing .row {
        margin-top: 20px;

share/flavor/Large/script/admin.pl  view on Meta::CPAN

%% cascade "Minimum/script/server.pl"

%% override load_modules -> {
use <% $module %>::Admin;
use Plack::App::File;
use Plack::Session::Store::DBI;
use DBI;
%% }

%% override app -> {
use 5.010_001;

share/flavor/Large/script/web.pl  view on Meta::CPAN

%% cascade "Minimum/script/server.pl"

%% override load_modules -> {
use <% $module %>::Web;
use Plack::App::File;
use Plack::Session::Store::DBI;
use DBI;
%% }

%% override app -> {
use 5.010_001;

share/flavor/Large/t/00_compile.t  view on Meta::CPAN

<% cascade "Minimum/t/00_compile.t" %>
<% override load_modules -> { %>
use <% $module %>;
use <% $module %>::Web;
use <% $module %>::Web::Dispatcher;
use <% $module %>::Web::C::Root;
use <% $module %>::Web::C::Account;
use <% $module %>::Web::ViewFunctions;
use <% $module %>::Web::View;
use <% $module %>::Admin;
use <% $module %>::Admin::Dispatcher;

share/flavor/Large/tmpl/admin/error.tx  view on Meta::CPAN

: cascade "include/layout.tx"

: override content -> {

<div class="alert-message error">
    An error occurred : <: $message :>
</div>

: }

share/flavor/Large/tmpl/admin/index.tx  view on Meta::CPAN

: cascade "include/layout.tx"

: override content -> {

<section>
    <h1>This is a <% $dist %>'s admin site</h1>
</section>

: }

share/flavor/Large/tmpl/web/error.tx  view on Meta::CPAN

: cascade "include/layout.tx"

: override content -> {

<div class="alert-message error">
    An error occurred : <: $message :>
</div>

: }