File Coverage

blib/lib/Monitis/SubAccounts.pm

Criterion	Covered	Total	%
statement	9	29	31.0
branch			n/a
condition			n/a
subroutine	3	9	33.3
pod	6	6	100.0
total	18	44	40.9

package Monitis::SubAccounts;

use warnings;
use strict;
require Carp;

use base 'Monitis';

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

    my @mandatory = qw/firstName lastName email password group/;

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

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

sub get {
    my $self = shift;

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

sub pages {
    my $self = shift;

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

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

    my @mandatory = qw/userId pageNames/;

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

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

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

    my @mandatory = qw/userId pageNames/;
    my $params = $self->prepare_params(\@params, \@mandatory);

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

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

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

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


1;

__END__