package Test::MyCmd::Command::hello;

use strict;
use warnings;

use base qw(App::Cmd::Command);

use IPC::Cmd qw/can_run/;

sub execute {
  my ($self, $opt, $arg) =@_;

  if ( $^O eq 'MSWin32' ) {
    system('cmd', '/c', 'echo', "Hello World");
  }
  else {
    my $echo = can_run("echo");
    $self->usage_error("Program 'echo' not found") unless $echo;
    system($echo, "Hello World");
  }
  return;
}

1;