use Test::Most; use App::lpp; use Term::Prompt; my $tests = 1; # keep on line 17 for ,i (increment and ,d (decrement) diag( "Running tests" ); plan tests => $tests; # create an object my $obj; $| = 1; *OLD_STDOUT = *STDOUT; *STDOUT = *STDERR; my $username = prompt ('x', "Enter your Lastpass username: ", '', ''); *STDOUT = *OLD_STDOUT; lives_ok { $obj = App::lpp->new( {username => $username} ) } 'can create a cmd object';