}
sub handle_cmd {
- my ($def, $cmdname, $cmd, $args, $pwcallback, $podfn) = @_;
+ my ($def, $cmdname, $cmd, $args, $pwcallback, $podfn, $preparefunc) = @_;
$cmddef = $def;
$exename = $cmdname;
return;
}
+ &$preparefunc() if $preparefunc;
+
$cmd = &$expand_command_name($cmddef, $cmd);
my ($class, $name, $arg_param, $uri_param, $outsub) = @{$cmddef->{$cmd} || []};