File Coverage

blib/lib/Monitis/FullPageLoadMonitors.pm

Criterion	Covered	Total	%
statement	9	34	26.4
branch			n/a
condition			n/a
subroutine	3	8	37.5
pod	5	5	100.0
total	17	47	36.1

package Monitis::FullPageLoadMonitors;

use warnings;
use strict;
require Carp;

use base 'Monitis';

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

    my @mandatory = qw/name tag locationIds checkInterval url timeout/;
    my @optional  = qw/uptimeSLA responseSLA/;

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

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

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

    my @mandatory =
      qw/monitorId name tag locationIds checkInterval url timeout/;
    my @optional = qw/uptimeSLA responseSLA /;

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

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

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

    my @mandatory = qw//;
    my @optional  = qw/monitorIds tag/;

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

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

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

    my @mandatory = qw//;
    my @optional  = qw/monitorIds tag/;

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

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

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

    my @mandatory = qw//;
    my @optional  = qw/monitorIds/;

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

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

__END__