blob: 9fd3bee1d0c69221da99ec85619fa52eb0f27ad6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
use strict;
use warnings;
use 5.010;
use Net::HTTP::Spore;
my $api = Net::HTTP::Spore->new_from_spec(shift);
$api->enable('Net::HTTP::Spore::Middleware::Format::JSON');
my ( $content, $result ) = $api->user_information( format => 'json', username => 'franckcuny' );
say "name => ". $content->{body}->{user}->{name};
|
