view release on metacpan or  search on metacpan

t/Data_Object_Cli.t  view on Meta::CPAN

544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
  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
});