view release on metacpan or  search on metacpan

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

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

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

  my $str = prompt_str('please enter a string');
  printf "you entered: <%s>\n", $str;
};

1;