view release on metacpan or  search on metacpan

t/Data_Object_Cli.t  view on Meta::CPAN

  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
});