From dba1ee2b1252ad4ef8a64622daf6c2dd5ddb2557 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sun, 17 Oct 2010 21:40:28 +0200
Subject: simplify github example

---
 eg/api.pl | 15 ++-------------
 1 file changed, 2 insertions(+), 13 deletions(-)

(limited to 'eg/api.pl')

diff --git a/eg/api.pl b/eg/api.pl
index 4e89701..9fd3bee 100644
--- a/eg/api.pl
+++ b/eg/api.pl
@@ -4,21 +4,10 @@ use 5.010;
 
 use Net::HTTP::Spore;
 
-my $username = shift;
-my $token = shift;
-
 my $api = Net::HTTP::Spore->new_from_spec(shift);
 
 $api->enable('Net::HTTP::Spore::Middleware::Format::JSON');
 
-$api->enable(
-    'Net::HTTP::Spore::Middleware::Auth::Basic',
-    username => $username,
-    password => $token,
-);
-
-my ( $content, $result ) =
-  $api->user_information( format => 'json', username => 'franckcuny' );
+my ( $content, $result ) = $api->user_information( format => 'json', username => 'franckcuny' );
 
-use YAML::Syck;
-warn Dump $content;
+say "name => ". $content->{body}->{user}->{name};
-- 
cgit v1.2.3