RegisteringPluginModules
Plugins are detected by using "Module::Pluggable". Every module in the
"CPANPLUS::Shell::Default::Plugins::*" namespace is considered a plugin, and is attempted to be loaded.
Therefor, any plugin must be declared in that namespace, in a corresponding ".pm" file.
RegisteringPluginCommands
To register any plugin commands, a list of key value pairs must be returned by a "plugins" method in your
package. The keys are the commands you wish to register, the values are the methods in the plugin package
you wish to have called when the command is issued.
For example, a simple 'Hello, World!' plugin:
package CPANPLUS::Shell::Default::Plugins::HW;
sub plugins { return ( helloworld => 'hw' ) };
sub hw { print "Hello, world!\n" }
When the user in the default shell now issues the "/helloworld" command, this command will be dispatched
to the plugin, and its "hw" method will be called
RegisteringPluginHelp
To provide usage information for your plugin, the user of the default shell can type "/? PLUGIN_COMMAND".
In that case, the function "PLUGIN_COMMAND_help" will be called in your plugin package.
For example, extending the above example, when a user calls "/? helloworld", the function "hw_help" will
be called, which might look like this:
sub hw_help { " /helloworld # prints "Hello, world!\n" }
If you don't provide a corresponding _help function to your commands, the default shell will handle it
gracefully, but the user will be stuck without usage information on your commands, so it's considered
undesirable to omit the help functions.
ArgumentstoPluginCommands
Any plugin function will receive the following arguments when called, which are all positional:
Classname -- The name of your plugin class
Shell -- The CPANPLUS::Shell::Default object
Backend -- The CPANPLUS::Backend object
Command -- The command issued by the user
Input -- The input string from the user
Options -- A hashref of options provided by the user
For example, the following command:
/helloworld bob --nofoo --bar=2 joe
Would yield the following arguments:
sub hw {
my $class = shift; # CPANPLUS::Shell::Default::Plugins::HW
my $shell = shift; # CPANPLUS::Shell::Default object
my $cb = shift; # CPANPLUS::Backend object
my $cmd = shift; # 'helloworld'
my $input = shift; # 'bob joe'
my $opts = shift; # { foo => 0, bar => 2 }
....
}