Added GetPassword routine

[clearscm.git] / lib / Utils.pm

diff --git a/lib/Utils.pm b/lib/Utils.pm
index 1bed47b..a523461 100644 (file)
--- a/lib/Utils.pm
+++ b/lib/Utils.pm
@@ -311,6 +311,41 @@ Returns:
 
 sub GetPassword (;$) {
   my ($prompt) = @_;
+
+=pod
+
+=head2 GetPassword (;$prompt)
+
+Prompt for a password
+
+Parameters:
+
+=for html <blockquote>
+
+=over
+
+=item $prompt
+
+Prompt string to use (Default: "Password:")
+
+=back
+
+=for html </blockquote>
+
+Returns:
+
+=for html <blockquote>
+
+=over
+
+=item $password
+
+=back
+
+=for html </blockquote>
+
+=cut  
+
   
   $prompt ||= 'Password';