diff options
Diffstat (limited to 'eg/api.pl')
| -rw-r--r-- | eg/api.pl | 15 |
1 files changed, 2 insertions, 13 deletions
@@ -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}; |
