view release on metacpan or  search on metacpan

example/hello_medium.pl  view on Meta::CPAN

#!/usr/bin/perl
use strict;
use warnings;
use utf8;

use API::Medium;

my $token = $ARGV[0];
print "Usage: $0 your_access_token\n" && exit unless $token;

my $m = API::Medium->new( { access_token => $token, } );

my $user = $m->get_current_user;