File Coverage

blib/lib/Monitis/Contacts.pm

Criterion	Covered	Total	%
statement	9	47	19.1
branch	0	2	0.0
condition			n/a
subroutine	3	12	25.0
pod	9	9	100.0
total	21	70	30.0

package Monitis::Contacts;

use warnings;
use strict;
require Carp;

use base 'Monitis';

sub add {
    my ($self, @params) = @_;

    my @mandatory = qw/firstName lastName account contactType timezone/;
    my @optional =
      qw/group sendDailyReport sendWeeklyReport sendMonthlyReport portable country textType/;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_post('addContact' => $params);
}

sub edit {
    my ($self, @params) = @_;

    my @mandatory = qw/contactId/;
    my @optional =
      qw/firstName lastName account contactType timezone sendDailyReport sendWeeklyReport sendMonthlyReport portable code country textType/;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_post('editContact' => $params);
}

sub delete {
    my ($self, @params) = @_;

    my @mandatory = qw//;
    my @optional  = qw/contactId account contactType/;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    unless (@$params) {
        Carp::croak(
            "One of optional parameters required for deleting contact");
    }

    return $self->api_post('deleteContact' => $params);
}

sub confirm {
    my ($self, @params) = @_;

    my @mandatory = qw/contactId confirmationKey/;

    my $params = $self->prepare_params(\@params, \@mandatory);

    return $self->api_post('confirmContact' => $params);
}

sub activate {
    my ($self, @params) = @_;

    my @mandatory = qw/contactId/;

    my $params = $self->prepare_params(\@params, \@mandatory);

    return $self->api_post('contactActivate' => $params);
}

sub deactivate {
    my ($self, @params) = @_;

    my @mandatory = qw/contactId/;

    my $params = $self->prepare_params(\@params, \@mandatory);

    return $self->api_post('contactDeactivate' => $params);
}

sub get {
    my $self = shift;

    return $self->api_get('contactsList');
}

sub get_groups {
    my $self = shift;

    return $self->api_get('contactGroupList');
}

sub get_recent_alerts {
    my ($self, @params) = @_;

    my @mandatory;
    my @optional = qw/timezone startDate endDate limit/;

    my $params = $self->prepare_params(\@params, \@mandatory, \@optional);

    return $self->api_get('recentAlerts' => $params);
}
__END__