File Coverage

blib/lib/Apertur/SDK/Resource/Webhooks.pm

Criterion	Covered	Total	%
statement	14	33	42.4
branch	0	4	0.0
condition			n/a
subroutine	5	12	41.6
pod	7	8	87.5
total	26	57	45.6

package Apertur::SDK::Resource::Webhooks;

use strict;
use warnings;

use JSON qw(encode_json);
use URI::Escape qw(uri_escape);

sub new {
    my ($class, %args) = @_;
    return bless { http => $args{http} }, $class;
}

sub list {
    my ($self, $project_id) = @_;
    return $self->{http}->request('GET', "/api/v1/projects/$project_id/webhooks");
}

sub create {
    my ($self, $project_id, %config) = @_;
    return $self->{http}->request(
        'POST', "/api/v1/projects/$project_id/webhooks",
        body => encode_json(\%config),
    );
}

sub update {
    my ($self, $project_id, $webhook_id, %config) = @_;
    return $self->{http}->request(
        'PATCH', "/api/v1/projects/$project_id/webhooks/$webhook_id",
        body => encode_json(\%config),
    );
}

sub delete {
    my ($self, $project_id, $webhook_id) = @_;
    return $self->{http}->request(
        'DELETE', "/api/v1/projects/$project_id/webhooks/$webhook_id",
    );
}

sub test {
    my ($self, $project_id, $webhook_id) = @_;
    return $self->{http}->request(
        'POST', "/api/v1/projects/$project_id/webhooks/$webhook_id/test",
    );
}

sub deliveries {
    my ($self, $project_id, $webhook_id, %options) = @_;
    my @parts;
    for my $key (sort keys %options) {
        next unless defined $options{$key};
        push @parts, uri_escape($key) . '=' . uri_escape($options{$key});
    }
    my $qs = @parts ? '?' . join('&', @parts) : '';
    return $self->{http}->request(
        'GET', "/api/v1/projects/$project_id/webhooks/$webhook_id/deliveries$qs",
    );
}

sub retry_delivery {
    my ($self, $project_id, $webhook_id, $delivery_id) = @_;
    return $self->{http}->request(
        'POST',
        "/api/v1/projects/$project_id/webhooks/$webhook_id/deliveries/$delivery_id/retry",
    );
}

1;

__END__