};
__PACKAGE__->register_method ({
- name => 'help',
+ name => 'help',
path => 'help',
method => 'GET',
description => "Get help about specified command.",
parameters => {
- additionalProperties => 0,
+ additionalProperties => 0,
properties => {
cmd => {
description => "Command name",
},
},
returns => { type => 'null' },
-
+
code => sub {
my ($param) = @_;
if (!$cmd) {
if ($verbose) {
print_usage_verbose();
- } else {
+ } else {
print_usage_short(\*STDOUT);
}
return undef;
my $get_exe_name = sub {
my ($class) = @_;
-
+
my $name = $class;
$name =~ s/^.*:://;
$name =~ s/_/-/g;
&$outsub($res) if $outsub;
};
-sub run_cli {
- my ($class, $pwcallback, $podfn, $preparefunc) = @_;
-
- # Note: "depreciated function run_cli - use run_cli_handler instead";
- # silently ignore $podfn , which is no longer supported.
-
- die "password callback is no longer supported" if $pwcallback;
-
- run_cli_handler($class, prepare => $preparefunc);
-}
-
sub run_cli_handler {
my ($class, %params) = @_;