File Coverage

blib/lib/WebService/Reactio/Incident.pm

Criterion	Covered	Total	%
statement	30	35	85.7
branch	8	12	66.6
condition	3	6	50.0
subroutine	8	9	88.8
pod	0	5	0.0
total	49	67	73.1

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);
}

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

    my $params = {
        incident_id => $incident_id,
        message     => $text,
    };

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

1;