view release on metacpan or  search on metacpan

lib/Apertur/SDK/Resource/Keys.pm  view on Meta::CPAN

}

sub set_destinations {
    my ($self, $key_id, $destination_ids, $long_polling) = @_;

    my %payload = (destination_ids => $destination_ids);
    $payload{long_polling_enabled} = $long_polling
        if defined $long_polling;

    return $self->{http}->request(
        'PUT', "/api/v1/keys/$key_id/destinations",
        body => encode_json(\%payload),
    );
}

1;

__END__

=head1 NAME