SYNOPSIS
# Lower case command name
package Mojolicious::Command::mycommand;
# Subclass
use Mojo::Base 'Mojo::Command';
# Take care of command line options
use Getopt::Long 'GetOptions';
# Short description
has description => "My first Mojo command.\n";
# Short usage message
has usage => <<"EOF";
usage: $0 mycommand [OPTIONS]
These options are available:
-s, --something Does something.
EOF
# <suitable Futurama quote here>
sub run {
my $self = shift;
# Handle options
local @ARGV = @_;
GetOptions('s|something' => sub { $something = 1 });
# Magic here! :)
}
DESCRIPTION
Mojo::Command is an abstract base class for Mojo commands.See Mojolicious::Commands for a list of commands that are available by default.
ATTRIBUTES
Mojo::Command implements the following attributes.description
my $description = $command->description; $command = $command->description('Foo!');
Short description of command, used for the command list.
usage
my $usage = $command->usage; $command = $command->usage('Foo!');
Usage information for command, used for the help screen.
METHODS
Mojo::Command inherits all methods from Mojo::Base and implements the following new ones.app
my $app = $command->app;
Currently active application.
# Introspect say "Template path: $_" for @{$command->app->renderer->paths};
chmod_file
$command = $command->chmod_file('/home/sri/foo.txt', 0644);
Portably change mode of a file.
chmod_rel_file
$command = $command->chmod_rel_file('foo/foo.txt', 0644);
Portably change mode of a file relative to the current working directory.
class_to_file
my $file = $command->class_to_file('Foo::Bar');
Convert a class name to a file.
Foo::Bar -> foo_bar FOO::Bar -> foobar FooBar -> foo_bar FOOBar -> foobar
class_to_path
my $path = $command->class_to_path('Foo::Bar');
Convert class name to path.
Foo::Bar -> Foo/Bar.pm
create_dir
$command = $command->create_dir('/home/sri/foo/bar');
Portably create a directory.
create_rel_dir
$command = $command->create_rel_dir('foo/bar/baz');
Portably create a directory relative to the current working directory.
get_all_data
my $all = $command->get_all_data; my $all = $command->get_all_data('Some::Class');
Extract all embedded files from the "DATA" section of a class.
get_data
my $data = $command->get_data('foo_bar'); my $data = $command->get_data('foo_bar', 'Some::Class');
Extract embedded file from the "DATA" section of a class.
help
$command->help;
Print usage information for command.
rel_dir
my $path = $command->rel_dir('foo/bar');
Portably generate an absolute path for a directory relative to the current working directory.
rel_file
my $path = $command->rel_file('foo/bar.txt');
Portably generate an absolute path for a file relative to the current working directory.
render_data
my $data = $command->render_data('foo_bar', @args);
Render a template from the "DATA" section of the command class.
render_to_file
$command = $command->render_to_file('foo_bar', '/home/sri/foo.txt');
Render a template from the "DATA" section of the command class to a file.
render_to_rel_file
$command = $command->render_to_rel_file('foo_bar', 'foo/bar.txt');
Portably render a template from the "DATA" section of the command class to a file relative to the current working directory.
run
$command->run; $command->run(@ARGV);
Run command. Meant to be overloaded in a subclass.
write_file
$command = $command->write_file('/home/sri/foo.txt', 'Hello World!');
Portably write text to a file.
write_rel_file
$command = $command->write_rel_file('foo/bar.txt', 'Hello World!');
Portably write text to a file relative to the current working directory.