123456789101112131415 package MyAppMulti::Main;use strict;use base qw(App::CLI::Command);use Scalar::Util qw(refaddr);sub run { my($self, @args) = @_; $main::DBI_OBJ1_ADDR = refaddr($self->dbh("other1")); $main::DBI_OBJ2_ADDR = refaddr($self->dbh("other2"));}1;
package
MyAppMulti::Main;
use
strict;
base
qw(App::CLI::Command)
;
Scalar::Util
qw(refaddr)
sub
run {
my
(
$self
,
@args
) =
@_
$main::DBI_OBJ1_ADDR
= refaddr(
->dbh(
"other1"
));
$main::DBI_OBJ2_ADDR
"other2"
}
1;