| line |
true |
false |
branch |
|
49
|
0 |
0 |
unless defined $prompt |
|
50
|
0 |
0 |
unless defined $idle_limit |
|
51
|
0 |
0 |
unless defined $interruptable |
|
56
|
0 |
0 |
unless $in |
|
57
|
0 |
0 |
if (open TTY, "+<$in") { } |
|
|
0 |
0 |
elsif ($Term::ReadPassword::ALLOW_STDIN) { } |
|
60
|
0 |
0 |
unless open TTY, '<&STDIN' |
|
67
|
0 |
0 |
if (open TTYOUT, ">>$out") { } |
|
|
0 |
0 |
elsif ($Term::ReadPassword::ALLOW_STDIN) { } |
|
71
|
0 |
0 |
unless open TTYOUT, '>>&STDOUT' |
|
97
|
0 |
0 |
if ($idle_limit) { } |
|
112
|
0 |
0 |
$Term::ReadPassword::USE_STARS ? : |
|
113
|
0 |
0 |
$Term::ReadPassword::USE_STARS ? : |
|
132
|
0 |
0 |
if ($count) { } |
|
134
|
0 |
0 |
if (my $meaning = $Term::ReadPassword::SPECIAL{$new_key}) { } |
|
135
|
0 |
0 |
if ($meaning eq 'ENT') { } |
|
|
0 |
0 |
elsif ($meaning eq 'DEL') { } |
|
|
0 |
0 |
elsif ($meaning eq 'NAK') { } |
|
|
0 |
0 |
elsif ($interruptable and $meaning eq 'INT') { } |
|
143
|
0 |
0 |
if (length $input) |
|
170
|
0 |
0 |
if length $input > $Term::ReadPassword::INPUT_LIMIT |
|
181
|
0 |
0 |
unless $Term::ReadPassword::SUPPRESS_NEWLINE |