[Jifty-commit] r6127 - in Net-Jifty/trunk: .

[Jifty commits]

Author: sartak
Date: Tue Dec 16 22:45:59 2008
New Revision: 6127

Modified:
   Net-Jifty/trunk/   (props changed)
   Net-Jifty/trunk/Makefile.PL
   Net-Jifty/trunk/lib/Net/Jifty.pm

Log:
 r77613 at onn:  sartak | 2008-12-16 22:45:53 -0500
 Make Term::ReadKey more optional


Modified: Net-Jifty/trunk/Makefile.PL
==============================================================================
--- Net-Jifty/trunk/Makefile.PL	(original)
+++ Net-Jifty/trunk/Makefile.PL	Tue Dec 16 22:45:59 2008
@@ -7,8 +7,6 @@
 requires        'LWP::UserAgent';
 requires        'YAML';
 requires        'URI';
-requires        'Encode';
-requires        'Term::ReadKey';
 
 build_requires  'Test::More';
 build_requires  'Test::MockObject';
@@ -28,6 +26,10 @@
         -default => 0,
         recommends('Email::Address'),
     ],
+    'Hiding password entry' => [
+        -default => 0,
+        recommends('Term::ReadKey'),
+    ],
 );
 
 WriteAll;

Modified: Net-Jifty/trunk/lib/Net/Jifty.pm
==============================================================================
--- Net-Jifty/trunk/lib/Net/Jifty.pm	(original)
+++ Net-Jifty/trunk/lib/Net/Jifty.pm	Tue Dec 16 22:45:59 2008
@@ -602,12 +602,16 @@
         $self->config->{email} = <STDIN>;
         chomp($self->config->{email});
 
-        require Term::ReadKey;
+        my $read_mode = eval {
+            require Term::ReadKey;
+            \&Term::ReadKey::ReadMode;
+        } || sub {};
+
         print "And your password? ";
-        Term::ReadKey::ReadMode('noecho');
+        $read_mode->('noecho');
         $self->config->{password} = <STDIN>;
         chomp($self->config->{password});
-        Term::ReadKey::ReadMode('restore');
+        $read_mode->('restore');
 
         print "\n";