view release on metacpan or  search on metacpan

lib/EZID.pm  view on Meta::CPAN

sub create {
    my ($self, $identifier, $metadata) = @_;

    $metadata //= {};

    my $content = encode("UTF-8", join("\n",
            map { escape($_) . ": " . escape($metadata->{$_}) } keys %$metadata));

    my $ua = LWP::UserAgent->new;
    $ua->credentials("ezid.cdlib.org:443", "EZID", $self->{_username},
        $self->{_password});
    my $r = $ua->request(PUT "https://ezid.cdlib.org/id/$identifier",
        'Content-Type' => "text/plain; charset=UTF-8",
        'Content' => $content);

    my $response;
    if ($r->is_success) {
        $response = { _parse($r->decoded_content) };
    } else {
        $self->{_error_msg} = $r->decoded_content;