rd::VERSION = '0.02';
use Moose;
# ABSTRACT: https://pinboard.in/ API client
use HTTP::Tiny;
use JSON::PP;
use URI;
has token => (
is => 'ro',
isa => 'Str',
required => 1,
)
n, format => 'json');
return $uri;
},
);
has ua => (
is => 'ro',
isa => 'HTTP::Tiny',
lazy => 1,
default => sub { HTTP::Tiny->new },
);
has json => (
is
=> 'ro',
isa => 'JSON::PP',
lazy => 1,
default => sub { JSON::PP->new },
);
for my $method (qw(update add delete get recent dates all suggest)) {
__PACKAGE__->meta->add_me