view release on metacpan or  search on metacpan

lib/MooX/Cmd/Tester.pm  view on Meta::CPAN

    $rv
      and not $rv->error
      and $rv->cmd
      and $rv->cmd->command_name
      and ok($rv->cmd->command_commands->{$rv->cmd->command_name}, "found command at $test_ident");

    $rv;
}

## no critic qw(ProhibitSubroutinePrototypes)
sub _capture_merged(&)
{
    my $code = shift;
    my ($stdout, $stderr, $merged, $ok);
    if ($^O eq 'MSWin32')
    {
        ($stdout, $stderr, $ok) = tee { $code->(); };
        $merged = $stdout . $stderr;
    }
    else
    {