WP::UserAgent 6; # SSL verification bug fixed in 6.03
use HTTP::Request;
use MIME::Base64;
use JSON;
use Net::PMP::AuthToken;
use Net::PMP::CollectionDoc;
use Net::PMP::Schema;
use Net::PMP::Creden
(
is => 'rw',
isa => 'Str',
default => sub {'application/vnd.collection.doc+json'},
);
has 'last_response' => ( is => 'rw', isa => 'HTTP::Response', );
# TODO add strict mode wh
a
A LWP::UserAgent object.
=item pmp_content_type
Defaults to C<application/vnd.collection.doc+json>. Change at your peril.
=back
=head2 BUILD
Internal method for object construction.
=head2 la
ref);
}
=head1 DESCRIPTION
Net::PMP::CollectionDoc::Link represents a link in a Collection.doc+JSON PMP API response.
=head1 METHODS
=head2 hints
=head2 href
=head2 title
=head2 rels
=head2 v
se Net::PMP::CollectionDoc::Links;
use Net::PMP::CollectionDoc::Items;
use UUID::Tiny ':std';
use JSON;
use Try::Tiny;
our $VERSION = '0.006';
# the 'required' flag on these attributes should match
'ro', isa => 'ArrayRef', required => 0, );
=head1 NAME
Net::PMP::CollectionDoc - Collection.doc+JSON object for Net::PMP::Client
=head1 SYNOPSIS
my $doc = $pmp_client->get_doc();
printf("API ver
sents the PMP API media type L<https://github.com/publicmediaplatform/pmpdocs/wiki/Collection.doc-JSON-Media-Type>.
=head1 METHODS
=head2 href
The unique identifier. See L<http://cdoc.io/spec.html#
d1 DESCRIPTION
Net::PMP::CollectionDoc::Permission represents a special link in a Collection.doc+JSON PMP API response.
See L<https://github.com/publicmediaplatform/pmpdocs/wiki/Permissions-Design>.
set, will be output as a scalar
reference to an integer, so that passing to encode_json() will create a proper JSON boolean.
=head1 AUTHOR
Peter Karman, C<< <karman at cpan.org> >>
=head1 BUGS
Pl
;
}
=head1 DESCRIPTION
Net::PMP::CollectionDoc::Links represents the links in a Collection.doc+JSON PMP API response.
=head1 METHODS
=head2 links
Returns arrayref of links.
=head2 type
The fla
P::CLI;
use Moose;
with 'MooseX::SimpleConfig';
with 'MooseX::Getopt';
use Net::PMP::Client;
use JSON;
use Data::Dump qw( dump );
our $VERSION = '0.006';
has '+configfile' =>
( default => $ENV{
ag --tag foo
get --path /path/to/resource
groups
put --file /path/to/resource.json
users
EOF
return $txt;
}
sub _list_items {
my ( $self, $label, $urn ) = @_;
my $
client->last_response->status_line );
}
else {
#dump $doc;
print $doc->as_json;
}
}
=head2 put([I<filename>])
Reads I<filename> and PUTs it to the server. If missing, the