Yet Another CPAN Grep

WWW-Pocket ( D/DO/DOY/WWW-Pocket-0.03.tar.gz, DOY, 2016; MetaCPAN )

WWW-Pocket/lib/WWW/Pocket.pm ( view source; MetaCPAN )

Pocket v3 API

use HTTP::Tiny;
use IO::Socket::SSL; # Necessary for https URLs on HTTP::Tiny.
use JSON::PP;
use Carp;



has consumer_key => (
    is       => 'ro',
    isa      => 'Str',
    required

  content => encode_json($params),
            headers => {
                'Content-Type' => 'application/json; charset=UTF-8',
                'X-Accept'     => 'application/json',
            },

esponse->{status}): $response->{content}"
        unless $response->{success};

    return decode_json($response->{content});
}

__PACKAGE__->meta->make_immutable;
no Moose;


1;

__END__

=pod

=enco

WWW-Pocket ( D/DO/DOY/WWW-Pocket-0.03.tar.gz, DOY, 2016; MetaCPAN )

WWW-Pocket/lib/WWW/Pocket/Script.pm ( view source; MetaCPAN )

;
$WWW::Pocket::Script::VERSION = '0.03';
use Moose;

use Getopt::Long 'GetOptionsFromArray';
use JSON::PP;
use List::Util 'sum';
use Path::Class;
use URI;
use Pod::Usage;

use WWW::Pocket;

has consu

    } values %$list;
}

sub _pretty_print {
    my $self = shift;
    my ($data) = @_;

    print JSON::PP->new->utf8->pretty->canonical->encode($data), "\n";
}

sub add {
    my $self = shift;
    my