$App::JESP::Cmd::VERSION
=
'0.010'
;
sub
global_opt_spec {
my
(
$self
) =
@_
;
return
(
[
"verbose|v"
,
"log additional output"
],
[
"lib-inc|I=s@"
,
"additional \@INC dirs"
, {
callbacks
=> {
'always fine'
=>
sub
{
unshift
@INC
, @{
$_
[0]}; } }
} ],
$self
->SUPER::global_opt_spec,
);
}
sub
execute_command {
my
(
$self
,
$cmd
,
$opts
,
@args
) =
@_
;
if
(
$self
->global_options()->{verbose} ){
Log::Any::Adapter->set(
'Stdout'
,
log_level
=>
'debug'
);
}
else
{
Log::Any::Adapter->set(
'Stdout'
,
log_level
=>
'info'
);
}
return
$self
->SUPER::execute_command(
$cmd
,
$opts
,
@args
);
}
1;