summaryrefslogtreecommitdiffstats
path: root/lib/WWW/Pocket/Script.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/WWW/Pocket/Script.pm')
-rw-r--r--lib/WWW/Pocket/Script.pm10
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/WWW/Pocket/Script.pm b/lib/WWW/Pocket/Script.pm
index 005d126..b060afc 100644
--- a/lib/WWW/Pocket/Script.pm
+++ b/lib/WWW/Pocket/Script.pm
@@ -134,8 +134,16 @@ sub _authenticate {
sub _prompt_for_consumer_key {
my $self = shift;
+ print "Consumer key required. You can sign up for a consumer key as a\n" .
+ "Pocket developer at https://getpocket.com/developer/apps/new.\n";
+
print "Enter your consumer key: ";
- chomp(my $key = <STDIN>);
+ my $key = <STDIN>;
+
+ # Trim start and end.
+ $key =~ s/^\s*(.*)\s*$/$1/;
+ # print "Key entered: '$key'\n";
+
return $key;
}