view release on metacpan or  search on metacpan

examples/link-api-example  view on Meta::CPAN

use lib '../lib';

use Data::Dumper;
use JSON::XS ();
use Net::OperaLink ();
use File::Slurp ();

# Test keys. Get your own at:
#   https://auth.opera.com/service/oauth/applications/

our $CONSUMER_KEY    = 'test_desktop_key';
our $CONSUMER_SECRET = 'p2FlOFGr3XFm5gOwEKKDcg3CvA4pp0BC';

my $rc_file = exists $ENV{HOME}
    ? "$ENV{HOME}/.operalinkrc"
    : ".operalinkrc" ;

# Read tokens from the .rc file
sub restore_tokens {
    my @tokens;