use
5.010;
our
$Config
;
our
$Log
;
our
$Data
;
our
$EngineName
;
sub
new {
my
(
$class
,
$options
) =
@_
;
my
$attributes
= {};
if
(
ref
(
$options
) eq
'HASH'
) {
foreach
my
$option
(
keys
%{
$options
}) {
$attributes
->{
$option
} =
$options
->{
$option
};
}
}
$Config
=
$Service::Engine::Config
;
$Log
=
$Service::Engine::Log
;
$Data
=
$Service::Engine::Data
;
$EngineName
=
$Service::Engine::EngineName
;
$Log
->
log
({
msg
=>
"loading $EngineName"
.
"::Modules::Selector"
,
level
=>2});
my
$self
=
bless
$attributes
,
$class
;
return
$self
;
}
sub
get {
my
(
$self
) =
@_
;
my
$dbh
=
$Data
->prod_mysql();
my
(
$value
) =
$dbh
->selectrow_array(
"SELECT NOW()"
);
say
(
$value
);
return
[
$value
];
}
1;