/usr/share/perl5/Mojolicious/Command/generate/plugin.pm is in libmojolicious-perl 5.54+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 | package Mojolicious::Command::generate::plugin;
use Mojo::Base 'Mojolicious::Command';
use Mojo::Util qw(camelize class_to_path);
use Mojolicious;
has description => 'Generate Mojolicious plugin directory structure.';
has usage => sub { shift->extract_usage };
sub run {
my ($self, $name) = @_;
$name ||= 'MyPlugin';
# Class
my $class = $name =~ /^[a-z]/ ? camelize($name) : $name;
$class = "Mojolicious::Plugin::$class";
my $app = class_to_path $class;
my $dir = join '-', split '::', $class;
$self->render_to_rel_file('class', "$dir/lib/$app", $class, $name);
# Test
$self->render_to_rel_file('test', "$dir/t/basic.t", $name);
# Makefile
$self->render_to_rel_file('makefile', "$dir/Makefile.PL", $class, $app);
}
1;
__DATA__
@@ class
% my ($class, $name) = @_;
package <%= $class %>;
use Mojo::Base 'Mojolicious::Plugin';
our $VERSION = '0.01';
sub register {
my ($self, $app) = @_;
}
1;
<% %>__END__
<% %>=encoding utf8
<% %>=head1 NAME
<%= $class %> - Mojolicious Plugin
<% %>=head1 SYNOPSIS
# Mojolicious
$self->plugin('<%= $name %>');
# Mojolicious::Lite
plugin '<%= $name %>';
<% %>=head1 DESCRIPTION
L<<%= $class %>> is a L<Mojolicious> plugin.
<% %>=head1 METHODS
L<<%= $class %>> inherits all methods from
L<Mojolicious::Plugin> and implements the following new ones.
<% %>=head2 register
$plugin->register(Mojolicious->new);
Register plugin in L<Mojolicious> application.
<% %>=head1 SEE ALSO
L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicio.us>.
<% %>=cut
@@ test
% my $name = shift;
use Mojo::Base -strict;
use Test::More;
use Mojolicious::Lite;
use Test::Mojo;
plugin '<%= $name %>';
get '/' => sub {
my $c = shift;
$c->render(text => 'Hello Mojo!');
};
my $t = Test::Mojo->new;
$t->get_ok('/')->status_is(200)->content_is('Hello Mojo!');
done_testing();
@@ makefile
% my ($class, $path) = @_;
use strict;
use warnings;
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => '<%= $class %>',
VERSION_FROM => 'lib/<%= $path %>',
AUTHOR => 'A Good Programmer <nospam@cpan.org>',
PREREQ_PM => {'Mojolicious' => '<%= $Mojolicious::VERSION %>'},
test => {TESTS => 't/*.t'}
);
__END__
=encoding utf8
=head1 NAME
Mojolicious::Command::generate::plugin - Plugin generator command
=head1 SYNOPSIS
Usage: APPLICATION generate plugin [NAME]
=head1 DESCRIPTION
L<Mojolicious::Command::generate::plugin> generates directory structures for
fully functional L<Mojolicious> plugins.
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<Mojolicious::Commands/"COMMANDS"> for a list of commands that are
available by default.
=head1 ATTRIBUTES
L<Mojolicious::Command::generate::plugin> inherits all attributes from
L<Mojolicious::Command> and implements the following new ones.
=head2 description
my $description = $plugin->description;
$plugin = $plugin->description('Foo!');
Short description of this command, used for the command list.
=head2 usage
my $usage = $plugin->usage;
$plugin = $plugin->usage('Foo!');
Usage information for this command, used for the help screen.
=head1 METHODS
L<Mojolicious::Command::generate::plugin> inherits all methods from
L<Mojolicious::Command> and implements the following new ones.
=head2 run
$plugin->run(@ARGV);
Run this command.
=head1 SEE ALSO
L<Mojolicious>, L<Mojolicious::Guides>, L<http://mojolicio.us>.
=cut
|