File Coverage

blib/lib/Net/SSH/Perl/Util/Term.pm

Criterion	Covered	Total	%
statement	6	26	23.0
branch	0	8	0.0
condition			n/a
subroutine	2	5	40.0
pod			n/a
total	8	39	20.5

# $Id: Term.pm,v 1.4 2001/05/24 07:21:28 btrott Exp $

package Net::SSH::Perl::Util::Term;
use strict;
use warnings;

sub _prompt {
    my($prompt, $def, $echo) = @_;
    unless ($echo) {
        return _read_passphrase($prompt);
    }
    else {
        print $prompt . ($def ? "[$def] " : "");
        chomp(my $ans = );
        return $ans ? $ans : $def;
    }
}

sub _read_passphrase {
    my($prompt) = @_;
    print $prompt;
    require Term::ReadKey;
    Term::ReadKey->import;
    ReadMode('noecho');
    chomp(my $pwd = ReadLine(0));
    ReadMode('restore');
    print "\n";
    $pwd;
}

sub _read_yes_or_no {
    my($prompt, $def) = @_;
    print $prompt, " [$def] ";
    chomp(my $ans = );
    $ans = $def unless $ans;
    $ans =~ /^y/i;
}

1;