view release on metacpan or  search on metacpan

t/lib/TestApp/Command/any.pm  view on Meta::CPAN

use strict;
use warnings;
package TestApp::Command::any;
use TestApp -command;

sub run {
  my ($self) = @_;

  prompt_any_key;
  print "thanks for pressing a key\n";
};

1;