Data-Object-Cli
view release on metacpan or search on metacpan
t/Data_Object_Cli.t view on Meta::CPAN
544545546547548549550551552553554555556557558559560561562563
ok
$result
->vars;
my
$returned
=
$result
->main;
like
$returned
,
qr/usage:/
;
$result
});
$subs
->example(-1,
'auto'
,
'method'
, fun(
$tryable
) {
local
@ARGV
;
$ARGV
[0] =
'init'
;
ok
my
$result
=
$tryable
->result;
ok
my
$returned
=
$result
->main;
is
$returned
, 1234567890;
$result
->auto
});
( run in 0.528 second using v1.01-cache-2.11-cpan-95122f20152 )