package Mojolicious::Command::Author::generate::app; use Mojo::Base 'Mojolicious::Command'; use Mojo::Util qw(class_to_file class_to_path decamelize); has description => 'Generate Mojolicious application directory structure'; has usage => sub { shift->extract_usage }; sub run { my ($self, $class) = (shift, shift || 'MyApp'); # Script my $name = class_to_file $class; $self->render_to_rel_file('mojo', "$name/script/$name", {class => $class}); $self->chmod_rel_file("$name/script/$name", 0744); # Application class my $app = class_to_path $class; $self->render_to_rel_file('appclass', "$name/lib/$app", {class => $class}); # Config file (using the default moniker) $self->render_to_rel_file('config', "$name/@{[decamelize $class]}.yml"); # Controller my $controller = "${class}::Controller::Example"; my $path = class_to_path $controller; $self->render_to_rel_file('controller', "$name/lib/$path", {class => $controller}); # Test $self->render_to_rel_file('test', "$name/t/basic.t", {class => $class}); # Static file $self->render_to_rel_file('static', "$name/public/index.html"); # Templates $self->render_to_rel_file('layout', "$name/templates/layouts/default.html.ep"); $self->render_to_rel_file('welcome', "$name/templates/example/welcome.html.ep"); } 1; =encoding utf8 =head1 NAME Mojolicious::Command::Author::generate::app - App generator command =head1 SYNOPSIS Usage: APPLICATION generate app [OPTIONS] [NAME] mojo generate app mojo generate app TestApp mojo generate app My::TestApp Options: -h, --help Show this summary of available options =head1 DESCRIPTION L generates application directory structures for fully functional L applications. This is a core command, that means it is always enabled and its code a good example for learning to build new commands, you're welcome to fork it. See L for a list of commands that are available by default. =head1 ATTRIBUTES L inherits all attributes from L and implements the following new ones. =head2 description my $description = $app->description; $app = $app->description('Foo'); Short description of this command, used for the command list. =head2 usage my $usage = $app->usage; $app = $app->usage('Foo'); Usage information for this command, used for the help screen. =head1 METHODS L inherits all methods from L and implements the following new ones. =head2 run $app->run(@ARGV); Run this command. =head1 SEE ALSO L, L, L. =cut __DATA__ @@ mojo #!/usr/bin/env perl use strict; use warnings; use Mojo::File qw(curfile); use lib curfile->dirname->sibling('lib')->to_string; use Mojolicious::Commands; # Start command line interface for application Mojolicious::Commands->start_app('<%= $class %>'); @@ appclass package <%= $class %>; use Mojo::Base 'Mojolicious', -signatures; # This method will run once at server start sub startup ($self) { # Load configuration from config file my $config = $self->plugin('NotYAMLConfig'); # Configure the application $self->secrets($config->{secrets}); # Router my $r = $self->routes; # Normal route to controller $r->get('/')->to('Example#welcome'); } 1; @@ controller package <%= $class %>; use Mojo::Base 'Mojolicious::Controller', -signatures; # This action will render a template sub welcome ($self) { # Render template "example/welcome.html.ep" with message $self->render(msg => 'Welcome to the Mojolicious real-time web framework!'); } 1; @@ static Welcome to the Mojolicious real-time web framework!

Welcome to the Mojolicious real-time web framework!

This is the static document "public/index.html", click here to get back to the start. @@ test use Mojo::Base -strict; use Test::More; use Test::Mojo; my $t = Test::Mojo->new('<%= $class %>'); $t->get_ok('/')->status_is(200)->content_like(qr/Mojolicious/i); done_testing(); @@ layout <%%= title %> <%%= content %> @@ welcome %% layout 'default'; %% title 'Welcome';

<%%= $msg %>

This page was generated from the template "templates/example/welcome.html.ep" and the layout "templates/layouts/default.html.ep", <%%= link_to 'click here' => url_for %> to reload the page or <%%= link_to 'here' => '/index.html' %> to move forward to a static page.

@@ config % use Mojo::Util qw(sha1_sum steady_time); --- secrets: - <%= sha1_sum $$ . steady_time . rand %>