File Coverage

blib/lib/WebService/Reactio/Incident.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	8	8	100.0
condition	3	6	50.0
subroutine	8	8	100.0
pod	0	4	0.0
total	49	56	87.5

package WebService::Reactio::Incident;
use strict;
use warnings;
use utf8;

use Carp;

sub create_incident {
    my ($self, $name, $options) = @_;
    Carp::croak '[ERROR] Incident name is required' unless $name;

    my $params = $options || {};
    $params->{name} = $name;

    $self->_request('POST', '/api/v1/incidents', $params);
}

sub incident {
    my ($self, $incident_id) = @_;
    Carp::croak '[ERROR] Incident id is required' unless $incident_id;

    $self->_request('GET', '/api/v1/incidents/'.$incident_id);
}

sub incidents {
    my ($self, $options) = @_;
    my $params = $options || {};

    $self->_request('GET', '/api/v1/incidents', $params);
}

sub notify_incident {
    my ($self, $incident_id, $text, $options) = @_;
    Carp::croak '[ERROR] Incident id is required' unless $incident_id;
    Carp::croak '[ERROR] Notification text is required' unless $text;

    my $params = $options || {};
    $params->{incident_id}       = $incident_id;
    $params->{notification_text} = $text;

    $self->_request('POST', '/api/v1/notifications', $params);
}

1;