package
Enbld::Message;
use
strict;
use
warnings;
our
$VERBOSE
;
sub
notify {
my
(
$pkg
,
$msg
) =
@_
;
chomp
(
$msg
);
$msg
.=
"\n"
;
Enbld::Logger->
write
(
$msg
)
if
Enbld::Logger->logfile;
$msg
if
$VERBOSE
;
}
sub
alert {
my
(
$pkg
,
$msg
) =
@_
;
chomp
(
$msg
);
$msg
.=
"\n"
;
Enbld::Logger->
write
(
$msg
)
if
Enbld::Logger->logfile;
STDERR
$msg
if
$VERBOSE
;
}
sub
set_verbose {
$VERBOSE
++;
}
1;