1234567891011121314 package MyAppDefault::ChangeHandleName;use strict;use base qw(App::CLI::Command);sub run { my($self, @args) = @_; $self->dbi_default_handle("new_name"); $main::RESULT = $self->dbi_default_handle;}1;
package
MyAppDefault::ChangeHandleName;
use
strict;
base
qw(App::CLI::Command)
;
sub
run {
my
(
$self
,
@args
) =
@_
->dbi_default_handle(
"new_name"
);
$main::RESULT
=
->dbi_default_handle;
}
1;